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UNIVERSAL ASSEMBLER 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
SATURDAY, AUGUST 7, 1982 — 3MU47 FM 



VERSION 3.1 FEBRUARY 29, 1980 (IN-dOUSE) 



( 



01A\JGa2 15«b2 



CONFIDENTIAL 



PROPRIETARY 



INFORMATION 



THIS ITEM IS THE PROPERTY OF DATAPOINT CORPORATION, SAN ANTONIO, TEXAS, AND CONTAINS CONFIDENTIAL AND 
TRADE SECRET INFORMATION. THIS ITEM MAY NOT BE TRANSFERRED FROM THE CUSTODY OR CONTROL OF DATAPOINT EXCEPT 
AS AUTHORIZED BY DATAPOINT AND THEN ONLY BY WAY OF LOAN FOR LIMITED PURPOSES. IT MUST NOT BE REPRODUCED 
IN WHOLE OR IN PART AND MUST BE RETURNED TO DATAPOINT UPON REQUEST AND IN ALL EVENTS UPON COMPLETION OF 
THE PURPOSE OF THE LOAN. 



NEITHER 
FOR SUCH USE 
DATAPOINT. 



THIS ITEM NOR 
OR DISCLOSURE 



THE INFORMATION 
CONSISTENT WITH 



IT CONTAINS 
THE PURPOSE 



MAY BE USED OR DISCLOSED TO PERSONS NOT HAVING A NEED 
OF THE LOAN, WITHOUT THE PRIOR WRITTEN CONSENT OF 



COMMAND LINE WAS* SNAP3 PROCl 4. PROC , , ,PROC 1 44;G8QPLX 



INCLUS 
INCLUS 
I NCLUS 
I NCLUS 
INCLUS 
INCLUS 
INCLUS 
INCLUS 
INCLUS 
D 20 



ION 
ION 
ION 
ION 
ION 
ION 
ION 
ION 
ION 
.A 



A» 

B« 

a 

Di 
E« 
Fi 
Gt 
H» 
I» 



PROC 
PROC 
PROC 
PROC 
PHOC. 
PROC 
PROC 
PROC 
PROC 



INC/TXT»DR 
14/LIBiDRO 
14/LIBiDRO 
I4/LIB«DR0 
14/LIB«DR0 
14/LIBiDRO 
14/LIB«DR0 
14/LIBiDHO 
14/LIB:DR0 





.PMACMIC 

.GMACROZ 

.PROCEQUS 

.BDEF1800 

.MDEFI800 

.PORTEQUS 

.PORTASGN 

.PR0CP4 



• •* ERRORS* D 
PROGRAM NAME* PROC 
PROGRAM ADDRESS BLOCKS* 



PRIMARY TRANSFER ADDRESS* 
EXTERNAL DEFINITIONS* 



POR 
MOUT 



00000 /PROCL/ 
000150 /PROCL/ 



010000 
167400 
1 70000 
000000 
000000 

000000 



SCLSTW 
BP 



CAPIVS 



EQU 



INVERTED DISPLAY SCREEN VERSION **NEW** 



/ABSOLUTE/ SIZE=00 0000 (ABS) 



/SYSIVR/ 
/SYSROM/ 
/PrtOCL/ 
/PROCP/ 

/PROCL/ 



SIZE=00040Q (ABS) 

SIZE=000047 (ABS) 

SIZE=002000 (.RED 

SIZE=004000 (RED 



000271 
000236 



/PROCL/ 
/PROCL/ 



MIN 

SC 



000 115 

000240 



/PROCL/ 
/PROCL/ 



IVIOL^ 000266 /PROCL/ 

SCRAM I 000242 /PROCL/ 
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SCHOMLI 

UDPOP 

BETA 

STL 

RIN256 

BFSB 

SRC 

PSft 

DECP 

DLHL 

DI 
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000250 
000263 
000400 
000650 
00 1 1.10 
001222 
001355 
001440 
00 1 5 1 7 
001651 
001756 



/PROCL/ 
/PROCL/ 
/PROCL/ 
/PROCL/ 
/PROCL/ 
/PROCL/ 
/PROCL/ 
/PROCL/ 
/PROCL/ 
/PROCL/ 
/PROCL/ 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS 
SATURDAY, AUGUST 7, 1982 — 3«4I«47 PM 



SCROM 


000260 


/PROCL/ 


UDOP 


000270 


/PROCL/ 


ALPHA 


000417 


/PROCL/ 


RIND 


001215 


/PROCL/ 


RINST 


001 116 


/PROCL/ 


BFAC 


001226 


/PROCL/ 


SRE 


001366 


/PROCL/ 


INC PA 


001463 


/PROCL/ 


DECX 


001541 


/PROCL/ 


DL 


001655 


/PROCL/ 



SCROML 


000257 


/PROCL/ 


SCLST 


000274 


/PROCL/ 


SYSRETl 


000512 


/PROCL/ 


SYSTAT 


000755 


/PROCL/ 


BCP 


00 1126 


/PROCL/ 


BFS 


00 1300 


/PrtOCL/ 


CCS 


001402 


/PROCL/ 


INCP 


001470 


/PROCL/ 


INCX 


.001543 


/PROCL/ 


BRL 


001731 


/PROCL/ 



EXTERNAL REFERENCES (UNDEFINED SYMBOLS) » 

EXMOUT FETCHW 



7AUG82 


15»52 




SCDON 


000304 


/PROCL/ 


SCRAM 


000302 


/PROCL/ 


REGS 


000563 


/PhOCL/ 


BT 


001 000 


/PROCL/ 


RIN16 


001207 


/PROCL/ 


SLC 


001346 


/PROCL/ 


PLR 


001407 


/PROCL/ 


DEC PA 


00 1 5 1 2 


/PROCL/ 


DS 


001647 


/PkOCL/ 


EI 


001745 


/PROCL/ 



RCVMRK 

MEMPF$ 



RETS 
FETCH 



SRVRPT 
EIROJ 



PSHSTO 



PCMOD 



SRVDO 



POpSTO 



SYSRETO FETCriRW FETCH I 



UNUSED LABELS* 
MEMPFSC 
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i. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
JO. 
I). 
12. 
13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
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D.ATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

MICHO-PROCESSOR EMULATION SUPPOrtT CODE - riJS - 
SATURDAY, AUGUST 7, 1982 — 3«41i47 PM 



r 

r 



07AUG82 



5,52 



2. 14.1 
2. 14. F 

2.13 
2. 13. A 

2. 12 

2. 12.D 

2. 12. C 

2. 12. A 

12 



HJS 
HJS 

HJS 
HJS 

HJS 
HJS 
HJS 
HJS 



82 AUG 
80 JAN 

79 FEB 
79 JAN 

78 OCT 
78 OCT 
78 OCT 
78 SEP 



2.9 HJS 
2.9.K HJS 
2. 9. J HJS 
2.9.1 HJS 
2.9.H HJS 
2.9.G HJS 
2.9.F HJS 
2.9.E HJS 
2.9.D HJS 
2.9.C HJS 
2.9.B HJS 
2. 9. A HJS 

2.8.B HJS 
2. 8. A HJS 

2.7. HJS 



2.5.C HJS 
2.5.B HJS 
2. 5. A HJS 



78 JUL 
78 APR 
78 MAR 
78 FEB 
78 FEB 
78 FEB 
78 JAN 
78 JAN 
77 DEC 
77 DEC 
77 NOV 
77 NOV 

77 SEP 
77 SEP 



77 AUG 
77 JULY 
77 JULY 



7 
16 

12 
21 

16 
15 
12 
05 



20 
22, 
20 
27 
16 

3 
11 

4 
21 
13 
20 
14 

22 

19 



77 SEP 7 



2.H.B HJS 77 AUG 31 



16 
13 
12 



. 2.4.B HJS 77 JULY 12 
.* 2. 4. A HJS 77 JULY 7 



DO A NEW IMA iVITH OUTPUT MODEM CONTROLS 
START CHANGES FOR IMA VERSION 

VERSION 13 rtELEASE 

FIX REGS TO WORK WITH ACCESS PROTECTED STACK 

FINAL RELEASE 

CHANGE SYSTAT SO CAN TELL THE PRE-WELEASE LE^cL 
CORRECT THE PC FOR MEMORY FAULTS TO MATCH 6600 PC 
REFORMAT, RECOMMENT & FIX STACK FOH ACCESS ENABLE 
THE NUMBER IS OCTAL!! TO MATCH DEBGU ? DISPLAY 

FINAL RELEASE OF VERSION 9 

SPLIT PROC, MAKE RELOCATABLE, CHANGE APF, ADD AML 

RESTRUCTURE INTERRUPT SEQUENCE & MINOR MODS 

CORriECT 9.H FOR FAULT CLEANUP 

EVERYBODY MEMPF'S, KEYBOARD SCAN, & SIR CHANGE 

CORHECT TIMING, COMMENTS, & ADD POri TIMEOUT 

FIXING MIN/MOUT TIMINGS 

TESTING REPEATED KEYIN CONT^^OLS 

CORRECT STL INSTRUCTION 

BACK OFF FROM KBD RpT & RE-DO STL FOR TIMING 

INCLUDE TIMINGS AS CALCULATED & FIX MINOR BUGS 

CHANGE KEYBOAKD CODE TO AID HEPEATED KEY CONTROL 

MTI CHANGE SO LENGTH IS 2 BYTE DUMBER 

MTI CHANGE TO ALLOW MFRPT ON ANY INTERRUPl 

MINOR BUG-FIX AND OPTIMIZATION FOR RELEASE 

MTI SPECIAL VERSION 

UPDATE COMMENTS ON THE CODE 
CORRECTED NAMES FOK COM REGISTERS 
UP TO NEXT NEW VERSION NUMBER 

FIXED ILLEGAL MAR CHANGE IN REGL RETURN TO FETCH 
FIXED FILE TO CONFORM TO Vwp FORMAT (A LIITLE) 
INITIAL PRE-RELEASE OF THE MICRO-CODE 
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42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 
50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 
72. 
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DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 07AUG82 I5«52 
SATUKDAY, AUGUST 7, 1982 — 3:41*47 PM 

+ 

. USEFUL INFORMATION TO BE PASSED ON: 
* 

. IF SECTOR CONTAINING SEKBS 1 IS WRITE PROTECTED THEN CAN NOT DO A RESTART!!!! 

. DL$DO CODE, ACC$DO & SYSRET FORCE! PRI/ED MODE TO BE SURE CAN kVRlTE/ACCESS 
. MEMORY THAT PROTECTED, FXIO. COMM MUST DO THIS ALSO!! 

. ALL SMR'S AND MDW'S MUST HAVE FOLLOWING MWAIT .MEMPFX EVERYWHERE 
. IN THE CODE EVEN IF MWAIT ,$+1 IS USED (IGNORING MEMOHY FAULT) 

. FOR TESTING MEMPF, CHANGE MWAIT MACRO TO BE JT.MP $+1 «< 

. CODE THERE. TESTABLE AS USED BUT NO EFFECT!! 

. ************************************ ************i^ 

. EACH SERVICE ROUTINE THAT USES THE MAR MUST HAVE A MWAIT .$+1 BEFORE THE 

. MAR CHANGED, IF NOT USED, RETURN THROUGH SRVNXT! 

. ALL INPUTS FROM A PORT INSTRUCTION SHOULD BE LOGICAL (OUTPUT CAN ONLY BE 

. LOGICAL OR 'ITM. 

. ARITHMETICS MAY BE DONE ON INPUTS WITH CAUTION. ONLY IF THE DATA HAS NO SETU 

. TIME, i.e. MDR IS OK, BUT IMPI OR URI ARE NO-NO'S. 

. ****•**•*****.******•******•***********•***** ****:^ 

. DELAY AROUND SECTOR TABLE WRITES IS NOT NECESSARY. 

. DELAY DURING FONT LOAD IS ONLY AFTER LDCH. A 400 nSEC. DELAY IS NECESSARY 
. FROM AFTER LDCH TO ANY OF RDLM, SDLM, SKCH, MAROL, OR LDMAP. 
. ALSO, RDLM AND SDLM SHOULD NOT BE TOO CLOSE TOGETHER. 

. •**•**** **iHr ********************** ************* 



INC 



PROCINC 



( 

( 

( 
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( 

( 
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( 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE I 



PAGE 



14. A 
15. A 
16. A 
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MICRO-PROCESSOR EMULATION SUPPOrtT CODE - riJS - 
. UNDEFINED UNUSED PORTS, SUBS, & BITS 



07AUG82 15s 52 



SNAPOPT X 
* TYPE EQU 4 DEFINE VERSION OF MACHINE TO BE ASSEMBLED 

INC PR0C14.P0RTASGN PORT ASSIGNMENT DISPLAY 



( 



PAGE 



3.H 

4.H 

5.H 

6.H 

7.H 

8.H 

9.H 

10. H 

II. H 

12. H 

13. ri 

14. H 

15. ri 

16. H 

17.ri 

18. H 

19. H 

20. ri 

21. ri 

22. H 

23. ri 

24. H 

25. ri 

26. ri 

27. ri 

28. H 

29. ri 

30. ri 

31. ri 

32. H 

33. ri 

34. H 

35. ri 

36. H 

37. ri 

38. H 

39. ri 

40. H 

41. ri 

42. H 

43. ri 

44. H 

45. ri 

46. H 

47. ri 

48. H 

49. ri 

50. ri 

51. ri 
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MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 07AUO82 15«52 

. TriE PORT ASSIGNMENTS, ORGANIZED BY PORT - SUBPORT NUMBER IN IN/OUT PAIwS 



PORT 



SUB 





1 


2 


3 


4 


5 



I 


LIREG 
MOD IN 


LIMP 




BASrt 


MODW 
INBUS 


STrt 
MIFIN 



10 I 


IIMP 


DIMP 


COMF 


CHUF 


IMAR 


DMAR 



I 


OTBUS 
SRVREQ. 


STATUS 


LSPKR 


SDLCOT 
IDCODL 


ACUOT 
IDCODri 


SDLCM 
UCFLG 



LUF LUCF 

SDLCIN ACUIN 



MIFSTB MIFIAK MI.FSTB2 SINS 
10 I 



2 



I 


inCri LDMAP 
KBDD SNID 


3 




I 


URFO 


4 




I 


URO (MR2XXL) 
MARIL 


5 




I 


URO (MR2XXH) 
MAHiri 


6 




I 


MAROL (XX2MRL) 
URI 


7 




I 


MAROH (XX2MRri) 
URI 



SKCri 



SDLM 



SIOD 



KBSC 



CSRF 



RD LM 



MDR 
CSTF 

CMPF 



MIFDAT 
STEK 

SOTS 
SMR 



URC 


URD 


URE 


URri 


UhL 


URX 


SPH 


SPL 


PSW 


135 


102 


IMP 



USER 10 PORTS 4-7 

REGS URA URB 

10 PCH PCL 

SUB ITS 1 2 3 4 5 6 7 

SRVREQJ SCPMEM SCMBUS SCSDLCR SCSDLCT SCDSPNL SCONMS SCHUMS 

STATUS* . STUSCF STIODR STPFIN STPFOU STKBKC STKBNS STKBRDY STBOlLN 

MODW« SWINTE SWBASD SWUSER SWSTDT SWRPT SWALBT 

STEKs STLA STLW . STLSP 
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MICWO-PrtOCESSOR EMULATION SUPPORT CODE - HJS - 07AUG82 15:52 

. THE PORT ASSIGNMENTS, ORGANIZED BY PORT - SUBPORT NUMBER IN IN/OUT PAIRS 



52. H 




53. H 




54. H 




55. H 




56. H 




57. H 




58. H 




59. H 




60. H 




61. ri 




62. H 




63. H 




64. H 




65. ri 




66. H 




1 7. A 




J.I 


00 0002 


2.1 


000014 


3.1 




4.1 


000004 


5.1 




6.1 




7.1 




8.1 




9.1 




10. I 




n.i 





JUMP INPUT CONDITION CODES ARE* 
SELECT I 2 

CARRY ZERO MEMRDY 

DOUBLY NAMED (SUB) PORTS ARE> 



3 4 5 6 7 

PARITY IMPZERO IMPODD BUSHDY TRUE 



VER 
REV 

TYPE 



URO 


<> 


MR2XXL 


URO 


<> 


MK2XXH 


MAROL 


<> 


XX2MRL 


MAR OH 


<> 


XX2MRH 


INC 




PR0C14.PR0CP4 


EQU 




2 


EUU 




014 



EQU 



INDIrtECT TO PARAMETER FILE 
1800 - INFO INSTRUCTION PROCESSOR NUMBER 
INFO INST. MICkO-CODE hEVISION NUMBER 

=0 FOH 1800 PROCESSOR (DISK, ICA> 

=1 FOR 1871 PROCESSOR (DISK, ICA, APF/AML) 

=2 FOR 3800 PROCESSOR (ICA) 

=3 FOrt 3802 PROCESSOR (RIM) 

=4 FOR 38MP PROCESSOR (IMA) 



* 
* 



SNAPOPT X 
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MICHO-PROCESSOH EMULATION SUPPOWT CODE - HJS - 07AUG82 

. EXTENDED CONDITIONS, AND SYSTEM REGISTER DEFINITIONS 



\t)ib2 



14.1 




15.1 




16.1 




17.1 


020002 


18.1 


020003 


1 9. 1 


02 0004 


20.1 


020005 


21.1 


02 0006 


22.1 




23.1 




24.1 




25.1 


1 0002 


26.1 




27.1 


0.1 0000 


28.1 


0.10001 


29.1 


1 0002 


30.1 




31. 1 




32.1 




33.1 


1 0003 


34.1 


0.1 0004 


35.1 


0.1 0005 


36.1 


0J0006 


3 7.1 


10007 


38.1 


010010 


39.1 


0, 1 00 1 1 


40.1 


I 00 I 2 


41 . 1 


1 00 1 3 


42.1 




43.1 




44.1 




45.1 




46.1 


1 00 1 3 


47.1 


1 00 14 


48.1 


1 00 1 5 


49.1 


1 00 1 6 


50.1 




51.1 




52.1 




53.1 


1 00 1 5 


54.1 


1 00 1 6 


55.1 


1 00 1 7 


56.1 


1 00 1 7 


57.1 





. CONDITION CODES 




MO 


EQU 


F6+2 


MP 


EQU 


F6+3 


IZ 


EQU 


F6+4 


10 


EQU 


F6+5 


BR 


EQU 


F6+6 


. REGISTER ALLOCATION 


• 

Q 


EQU 


F5+02 


• 

PDLNP 


EQU 


F5+0 


KBSCNT 


EQU 


F5+01 


SCANSV 


EQU 


F5+02 


. DISKEITE CONTROL 


REGISTEKS 


• 

MADH 


EQU 


F5+03 


MB ITS 


EQU 


F5+04 


MBSTAT 


EQU 


F5-^05 


MCRCH 


EQU 


F5+06 


MCRCL 


EQU 


F5+07 


MDSKS 


EQU 


F5+010 


MDSKT 


EQU 


F5+0I1 


MTRAK 


EQU 


F5+012 


MSECT 


EQU 


F5+0i3 



MEMORY READY 

MEMOkY failure (OF ANY SORTl) 

IMPLICIT REGISTER ZERO 

IMPLICIT REGISTER ODD 

BUS READY (MICHO-BUS ONLY) 



NOBODY SHOULD DO ^hITE'S TO Q 

DISPLAY LINE POINTErt 

KEYBOARD SCAN COUNTER 

KEYBOARD SAVED SCAN NUMBER, REPEATED AI 



DISKETTE DEVICE ADDRESS 

DISKETTE I/O CONTROL, FUNCTION 8, STATUS 
DISKETTE STATE CONTROL LINK REGISTER 
DISKETTE CRC GENEhATOR STORAGE REG. 
DISKETTE CRC GENERATOR STORAGE REG. 
DISKETTE HEADER READ SECTOR NUMBER 
DISKEITE HEADER READ TRACK NUMBER 
DISKETTE USER DESIriED TRACK NUMBER 
DISKETTE USER DESIRED SECTOR NUMBER 
* APF VERSION ABOVE 2 BYTES IN MEMOhY * 



HONEYWELL-APF DMA CHANNEL CONTROL REGISTERS 



.APFRP 


EQU 


APFRK 


EQU 


APFTP 


EQU 


APFTK 


EQU 


* 




. AUDIO 


CHANN 


ACD 


EQU 


AC PL 


EQU 


ACPH 


EQU 


ACCTL 


EQU 



F5+013 
F5+014 
F5+015 
F5+0 16 



F5+0 15 
F5+016 
F5+017 
ACPH 



APF RECEIVEk POINTErt LSB 
APF RECEIVER COUNTER LSB 
APF TrtANSMITTEri POINTEh LSB 
APF TRANSMITTER COUNTER LSB 



AUDIO CHANNEL ATTEN/VALUE 

AUDIO CHANNEL CONTROL & MSB POINTER 
APF - AUDIO CHANNEL 1 BYTE CONTROL 
(ACPH & ACCTL SHOULD BE SAME REG.) 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE i 



PAGE 1 



PPOC14/LIB«DrtO.PHOC 



MICHO-PPOCESSOK EMULATION SUPPORT CODE - riJS - 07AUG82 lb«52 

. EXTENDED CONDITIONS, AND SYSTEM REGISTEH DEFINITIONS 



58.1 
59.1 
60.1 
6.1. 1 
62.1 
63.1 
64.1 
65.1 
66.1 
67.1 
68.1 
69.1 
70.1 
71.1 
72.1 
73.1 
74.1 
75.1 
76.1 
77.1 
78.1 
79.1 
80.1 
8.1. 1 
82.1 
83.1 
84.1 
85.1 
86.1 
87.1 
88.1 
89.1 
90.1 
91.1 
92.1 
93.1 
94.1 
95.1 
96.1 
97.1 
98.1 
99.1 



TEMPORARIES - AVAILABLE IN AN/ ROUTINE, LOST BETWEEN ROUTINES 



030000 
030001 
030002 
030001 
030002 



030003 
03 0004 
030005 
030006 
030007 
030010 
0300 II 
03fK)12 
0300 13 
030014 
030.015 
030016 
030017 



I 00 1 3 
030003 
030004 
030005 
030006 
03 0007 
030010 
1 00 14 
03 0012 
030013 
030014 
030015 
030016 
030017 



LINK 


EQU 


F5+F6+00 


SUBROUTINE CALL AND RETURN LINKAGE REGS 


TEMP 1 


EQU 


F5+F6+01 


PROCESSOR EMULATION TEMPORAhIES 


TEMP2 


EQU 


F5+F6+02 




TEMPH 


EQU 


TEMPI 


H & L ONLY FOR DOUBLE H/L 'I'CWOS 


TEMPL 


EQU 


TEMP2 




. COMMUNICATIONS 


CHANNEL CONTROL 


REG I S 'J e Kb 


RSTAT 


EQU 


Fb+F6+03 


COM RECEIVER STATUS 


RPNTR 


EQU 


F:j + F6+04 


COM RECEIVER MEMORY POINTER 


RDATA 


hQU 


F5+F6+05 


COM RECEIVER DATA 


KCnv^ri 


EQU 


F5+F6+06 


COM RECEIVER CRC GENERATOR STORAGE AREA 


RCRCL 


EQU 


F5+F6+07 


COM RECEIVER CRC GENERATOR STORAGE AREA 


UXPNTR 


EQU 


F5+F6+0I0 


USER TrtANSMIT BUFFEw POINTErt 


COMMODE 


EQU 


F5+F6+0 11 


COMMUNICATION MODE CONTROL REGISTER 


URPNTR 


EQU 


F5+F6+012 


USER hECEIVE BUFFER POINTER 


XSTAT 


EQU 


F5+F6+0 13 


COM TRANSMITTER STATUS 


XPNTR 


EQU 


F5+F6+014 


COM TrtANSMlilER MEMORY POINTER 


XDATA 


EQU 


F5+F6+0I5 


COM TRANSMI HER DATA 


XCRCH 


EQU 


F5+F6+016 


COM TrtANSMlilER CRC GENERATOR STORAGE 


XCRCL 

. INTERNA 


EQU 


FD+F6+0 1 7 


COM TRANSMI HER CRC GENERATOR STORAGE 


L MULTI- 


-PORT ADAPTER CONTROL REGISTER 


.COMMODE 


EQU 


F5+F6+0 11!!! 


COMMUNICATIONS MODE 


TRNFCN 


EQU 


F5+013 


TX CONTROL LINE SHADOW 


TRNCHN 


EQU 


F5+F6+03 


TRANSMrUING CHANNEL NUMBER 


TRNDTA 


EQU 


F5+F6+04 


TRANSMITTING CHANNEL DATA 


TRNCTL 


EQU 


F5+F6+05 


TRANSMITTING CHANNEL CONTROL 


TRNSEL 


EQU 


F5+F6+06 


TRANSMITTING CHANNEL SELECTION 


RCVCTL 


EQU 


F5+F6+07 


RECEIVER CONTROL REGISTER 


RCHOC 


EQU 


F5+F6+010 




RCHOD 


EQU 


F5+0 14 


SWAP OUT WITH COMMODE 


RCHIC 


EQU 


F5+F6+012 




RCHID 


EQU 


F5+F6+0 1 3 




RCH2C 


EQU 


F5+F6+014 


RECEIVErt CHANNEL & DATA REGISTERS 


RCH2D 


EQU 


F5+F6+0 15 




RCH3C 


EQU 


F5+F6+0 16 




RCH3D 


EQU 


F5+F6+017 





r 
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PROC 


.100.1 




t 01 . 1 




102.1 




103.1 




.104.1 




105.1 




-106.1 




.107.1 




.108.1 




109. 1 




1.10. I 




11 I.I 




112. I 




113.1 




114.1 




115.1 


00 0000 


1.1 6. 1 


00.0002 


117.1 


000000 


11 8. 1 


000000 


119.1 


00 0000 


120. I 


00 0000 


121.1 


000100 


122.1 


000000 


123.1 




- 124.1 




125.1 


000102 


126.1 




127. 1 




128.1 




129. I 


00 0000 


130.1 


002000 


1 31 . 1 


004000 


132.1 


006000 


.133.1 


00.7000 


134.1 




135.1 


00 0000 


18. A 


0001 11 


19. A 




D 20. A 


00 0000 


21. A 




73. 




74. 


00 0000 


75. 


00 0000 


76. 


00 0000 


77. 


00 0000 


78. 


OOOOOOL 



PROC14/LIBJDR0.PROC 



DATAPOINT CONFIDENTIAL INFORMATION - SEE HAGE 1 

MICRO-PROCESSOR EMULATION SUPPORT CODE - riJS - 07AUG82 

. EXTENDED CONDITIONS, AND SYSTEM REGISTER DEFINITIONS 



15*52 



CAPABILITY BITS: 

THESE BITS. DEFINE THE VERSION OF THE 1800-/3800 PROCESSOR THAT THIS IS FOR 

XX XXX XXX 

MICRO I/O BUS AVAILABLE 

I 1500 SINGLE DENSITY DISKETTE DRIVE AVAILABLE 

2 1800 SINGLE/DOUBLE DISKErfE DRIVE AVAILABLE 

3 APF SPECIAL MICRO-BUS INTERFACE AVAILABLE 

4 INTERNAL MULTIPORT ADAPTER AVAILABLE 

5 INBOARD RIM AVAILABLE 

6 5500 I/O BUS AVALIABLE 

7 COMMUNICATIONS INTERFACE AVAILABLE (ASYNC, BISYNC. 

1800 1871 3800 3802 38MP 
YES YES 

YES 



& SDLC) 



. *PROCES 


SOR* 




CAPMICR 


EQU 


0<0 


CAPIMA 


EQU 


Kl 


CAPBLUE 


EQU 


0<2 


CAPAPF 


EQU 


0<3 


CAPDMPIO 


EQU 


0<4 


CAPRIM 


EQU 


0<5 


CAP55I0 


EQU 


1<6 


CAPCOM 


EQU 


0<7 


. *TYPE* 







YES 


YES 










YES 




YES 
YES 




YES 


YES 


YES 




YES 


YES 


YES 


YES 









1 


2 


3 


4 



CAPABILI EQU 
* 

. LOCATION OF THE CODE IN hOMS IS A FOLLOk^S 



CAPC0M+CAP55I0+CAPRIM+CAPDMPI0+CAPAPF+CAPBLUE+CAPIMA+CAPMICR 

(MSB & LSB OF COUriSE) 



PROC 


EQU 


00<9 


PROD 


EQU 


02<9 


FLEX 


EQU 


04<9 


CDOX 


EQU 


06<9 


CDOR 


EQU 


7<9 


CAPIVS 


EQU 





PRE 


EQU 


yj^ 


CAPIVS 
* 


EQU 





PROCL 


ORG 


PROC 


PHOCP 


ORG 





PROCL 


USE 


PROCL 




USE 


PROCP 


PROCP 


LOC 


PROCL, 2 



EMULATION SUPPORT CODE IN hOMS & 
EMULATION SUPPORT CODE IN ROMS 2 & 
MICRO-BUS CODE IN riOMS 4 & 6 
COMM TRANSMIT CODE IN ROM 6 
COMM RECEIVE CODE IN ROM 7 



RELEASE LEVEL (FINAL IS BINARY ZEROJ 

INVERTED DISPLAY SCREEN VERSION **NEW** 
= NORMAL, 1 = INVERIED (.-URE RASTER!) 

LOGICAL SPACE IN ROM'S 
PHYSICAL SPACE DONE AT LINK TIME 
ENABLE BOTH ADDRESS SPACES 
BUILD CODE IN PHYSICAL SPACE 
LOCKING TO LOGICAL ADDhESSES 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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PHOC 


I4/LIB*DRO.PHOC 


81. 

82. 


00 00 00 L 






83. 








84. 








85. 








86. 


OOOOOOL 


0101 1001 


1 1 1 II 1 1 1 


87. 








88. 


OQOOOIL 


11 000100 


1 11 11 no 


89. 


00 0002L 


00 1 1 1 1 1 


0,1000 no 


90. 








91. 


00 0003L 


01010001 


00 00000 




00 0004L 


00 1 J 0.1 11 


.1 000 1 1 00 


92. 


000005L 


00 1 1 1 1 1 


XIOOOOIOO 


93. 


00 0006L 


00 1 J 0-1 11 


000000 II 


94. 


00 0007L 


00 0001 11 


1 11 10101 


95. 


0000 lOL 


000001 IJ 


J 11 10.100 


96. 


0000 IIL 


000001 11 


1 It 11 1 1 1 


97. 


0000 12L 


000001 11 


1 11 10001 


98. 


000013L 


00 1 1 1 1 1 


01000100 


99. 








10.0. 


0000 14L 


00 1 1 1 1 1 


00100101 


101. 


0000 15L 


00 1 J 0.1 1 1 


00 1 00 1 00 


.102. 


0000 16L 


OIlOll 11 


I 1 1 II 00 1 


103. 








104. 


0000 17L 


000001 11 


1 II lion 


.105. 








106. 


000020L 


01101111 


1 nioi 11 


107. 


00002 IL 


Olio 11 11 


11 110101 


108. 


00 00 22 L 


01.10 11 11 


1 lllOtIO 


1,09. 


00 0023L 


11 1111 


111 100 11 


no. 


>000024L 


010.10001 


1 11 n 111 




000025L 


0110 11 II 


1 1 1 1 1 000 


111. 


000026L 


01101111 


1 11 IIOIO 


112. 


00002.7L 


OlIOll II 


1 1 1 11 1 00 


113. 


000030L 


Olio 11 11 


inn no 


114. 








115. 








116. 


00003 IL 


0101 000 1 


1.11 II 1 11 




000032L 


000001 11 


1 II lOOII 


117. 


0000 33L 


0101 000 1 


100 11.100 




000034L 


000001 11 


101 10000 


118. 


0000 35L 


01010001 


00 1 00 1 00 




000036L 


00 1 1 1 1 1 


1 0001001 


119. 


000037L 


00 1 1 000 1 


00 110 111 




000040L 


0.1 000 1 01 


000 00010 


120. 


00004IL 


II 000010 


1 1 00 1 000 


121. 








122. 








123. 








124. 


000042L 


01010001 


000 1 100 


125. 


000043L 


00 1 1 1 1 1 


1 11 00000 




000044L 


OOllOJ 11 


00000101 



MICHO-PROCESSOk EMULATION SUPPORT CODE - HJS - 07AUG82 I5«52 

. POWER ON RESTART, INITIALIZE THE WORLD 

*• 
POR» 

. INITIALIZE ALL CONTROL TABLES THAT CAN NOT BE INIT'D BY POR MACRO CODE 



DO NOT CLEAR UP THE DISPLAY 

TIMEOUT SAFETY (IGNORE MEMORY FAULT; 

(INSTEAD OF FAULT JUMP) 

T-rf£G IS ZEHO FOR THE FOLLOWING 

SET EMULATION PSW 

PORT CONTROLS APPROPRIATLY 
BASE REGISTER IS INITIALLY ZERO 
MICHO-BUS STATE INITIALLY OFF! 
MICRO-BUS INITIALLY CLEARED FOR ACTION 
NO AUDIO CHANNEL INITIALLY 
SAVE THE SCAN NUMBER AND 
START THE FIRST KEY SCAN 

COMM OUTPUT IS OFF (MODEM OUTPUT) 
AUTO CALL UNIT IS OFF (OR IMA IN MARK) 
FLUSH THE COMMODE 1 ("MURF") 

INIT TX MODEM CONTROLS (NOT FIRST EXADk) 

NO RECEIVER HAS DATA BUFFERED (YET) 
NO TRANSMITTER HAS DATA FOR OUTPUl 
NO TriANSMITTER IS SELECTED FOR OUTPUT 
ALL TRANSMITTER CHANNELS ARE MARK 
RECEIVER CHANNEL ZERO WAITING IN MARK 

RECEIVER CHANNEL ONE WAITING IN MARK 
RECEIVER CHANNEL TWO WAITING IN MARK 
RECEIVER CHANNEL THREE WAITING IN MARK 



NO DEVICE ACCESSED YET ON MICRO-BUS 

POINT TO THE BOITOM LINE 

ASSUME THAT A TIMEOUT WILL HAPPEN 

CHECK IF IT DID 

YES, DON'T INIT STL OR MEMORY 

iR OR IMMEDIATE RESTART OR MEMPF 

INIT WHOLE SECTOR TABLE 
PORLST 



BPGX 


$ 


STB 


RDLM 


MWAIT 


, IGNORE 


STB 


CMPF 


LDPI 


PSWO,0 


LDPT 


MODW 


LDPT 


BASW 


LDRT 


MBS TAT 


LDRT 


MBITS 


LDRT 


ACPH 


LDRT 


KBSCNT 


LDPT 


KBSC 


LDPT 


SDLCMD 


LDPT 


ACUOT 


LDRT 


COMMODE 


IFS 


CAP IMA 


LDRT 


TRNFCN 


LDRT 


RCVCTL 


LDRT 


TRNCTL 


LDRT 


TRNSEL 


LDRT 


TRNCHN 


BAL 


HCriOCHCVMRK 


BAS 


RCHIC 


BAS 


RCH2C 


BAS 


RCH3C 


XIF 




LDRI 


MADR,-1 


LDRI 


PDLNP,SEDLBO 


LDfI 


PCOL,SRTMOUT 


TSTIP 


,STLIMOUT,ST 


BRA 


POROUT,FZ 


1 SECTOR 


TABLE & ZERO 


LDTI 


STAE+STWE 


LDPT 


MARCH, STW 
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126. 
127. 
128. 
129. 

.130. 

J 3.1 . 

132. 
133. 
134. 
135. 

136. 

,137. 
138. 
139. 
.140. 
141. 
142. 
143. 

144. 
146. 
146. 
147. 
148. 

149. 



PROCM/LIBtDRO.PHOC 



000045L 01 01 00 10 000 10000 
000046L II 000000 1 I 1 1 1 00 



00 0047L 
00 0050L 
000051L 
000052L 



OlOlflOOl 
00 1101 11 
01010001 
00.1101 11 



000053L DlOl 0001 
000054L 00 1101 11 
000055L 110 111-1 
000056L 00 1101 11 



00 00 57 L 
00 0060L 
000061L 01 
00 0062L 
00 0063L 
000064L 
00 00-65 L 



III 10000 
00000101 
1 1101 1 11 
1 11 00 000 
00000000 
1 1000 000 
J II 10010 
00001 101 

0001100 
001 00001 
1 11 10010 



00 1101 11 
00 1101 II 
0001 
OlIOIllO 0111 00 10 
01010001 000 00000 



I 000 I 00 
1 000000 



1 I 00101 1 
1 1010000 



000066L 00 110.1 11 10001001 



00006JL .01010001 
000070L 00 1101 li 



1 11 10000 
I 0001 000 



>000071L 010 11001 

>oooo72L noon 11 



] 1 



II 
11 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS 
. POWER ON RESTART, INITIALIZE THE rtORLD 



PORZRO 



FETPC 
POROUT 



DOTI 
BRA 

LDfI 

LDP I 

LDP I 

LDRT 
STB 

STB 

I NCR 

LDTI 

MWAIT 

BRA 

LDPT 

LDPI 



,AC, 16 
PORLST.FC 



07AUG82 15:52 
LOOF TILL ALL ARE ACCESS & WRITE ENABLE 



STW,SYSR0M>8. AND. 0360 SECTOR 017 IS SYSTEM ROM, PROTECT IT 
MAR0H,SYSESH>8 POINT TO THE EMULATION SUPPORT PAGE 

START OF IT ( T-REG IS ZERO) 



MAROL.SYSESR 

TEMPL 
DMAR 

IMAR»MDW 

TEMPL, TEMPL 



, IGNORE 

PORZRO, FC 

PCOL 

fC0H,SYSR0M>8 



INITIALIZE THE COUNTER 

CORRECT MAR SO ALL OF PAGE INITED 

ZERO THE NEXT BYTE (T-kEG IS ZERO) 

COUNT ALL OF THE BYTES IN THE PAGE 

DATA TO BE i^RITTEN IS ZERO 

.'! IG.MORE ANY AND ALL FAULIS !! 

CONTINUE TILL ALL PAGE DONE 

LOAD THE PC LSB ADDKESS 



. NOTE* NORMALLY HERE, PCL IS ZERO AND PCH = SYSR0M>8 

THIS GENERATES A POINTER TO SRPOWER-UP VECTOR ENTRY 



BRAX 



RETS 



OK, MICRO-POR DONE, DO MACRO POR 
(OR TIMEOUT) (OR SC ERROR) 



( 
( 



( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
i 
( 
( 
( 
C 

c 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE I 
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PROCI4/LIB«DttO.PftOC 



MICRO-PROCESSOR Ei^ULATION SUPPORT CODE - HJS - 07AUG82 

. INPUT OUTPUT OPERATIONS (NON-IMA VERSION) 



I5«52 



152. 
153. 
182. 
183. 
184. 
185. 
186. 
.187. 
188. 
189. 
190. 
191. 



192. 
193. 
259. 
260. 

261. 
262. 
263. 

264. 
265. 
266. 
267. 
268. 



00 0073L 
000074L 



000075L 



000075L 
000076L 

0000 77L 
0001 OOL 

0001 O.J L 



0001 02L 
00.0 I 03L 
0001 04L 
00ai05L 
0001 06L 
000J07L 
0001. lOL 
0001 ML 
000n2L 
0001 13L 
0.00 I 1 4L 



01010001 
1 1 00 I 1 I 1 



00 lion I 

00 1 1 0001 
OIOIOIOJ 
OOllOJ 11 

00 1101 n 



00 110001 
01000101 
1 1 0000 1 1 
00 1101 11 

00 110001 
01000101 
1 1 0000 1 1 
01 000101 
II 000011 
01010001 

1 100 11.11 



0000 
1 000 



10 
10 



001 1 100 
1 1 1 1 1 00 
1 10.11 I 11 
1 000 1 1 00 
0000 100 



001 10001 
000000 JO 
101 11101 
00101 100 
001 10001 

000 000 JO 

1 1 1 1 00 1 
0001000 
0.1 1 000 I I 
000 1100 
0.J000 110 



MINPAR 



IFC 
XIF 
LOT I 
BRA 



CAPIMA 



**ONLY FOR NON-IMA VERSION** 



SVINP USE PAhITY INPUT ERROR VECTOR 

SCLSTrt AND CALL SUPERVISOR ERROR ROUTINE 

PC CORRECT OR BACK UP IF IMP NON-ZERO 
* 

MINOWT 

. COMMON MIN/MOUT FINAL TERMINATION CODE 



OUTW 



0UTW2 



MOTPAR 



STB 
DOPIP 



LDPT 
IFC 
XIF 
TSTIP 

BRA 
STB 
TSTIP 

BRA 

TSTIT 

BRA 

LDTI 

BRA 



SIOD DOUBLE DELAY AT THE END 

PSrtO,ND,-l-SWKPT,PSWI TURN OFF THE REPEATED FLAG 



MODW 
CAPIMA 

, ST I ODR .STATUS 

OUT^l ,TZ 

SIOD 

.STIODR, STATUS 

0UTrt2,TZ 

.STPFOU 

FTCHIO.TZ 

SVOUTP 

SCLSTW 



RESET IT AND EI/DI BITS 

* MINOWT FALLS THkOUGH TO OUT^-^ IFS CAfIMA 



DELAY 1 WAITING FOR COMMAND TO GET THEk 
EXTEND THE COMMAND DELAY FOR FINAL STEP 



DELAY 2 WAITING FOR PAkITY TO RETURN 

WAS THERE AN OUTPUT PARITY FAULT? 

NO! 

YES, TELL SUPERVISOR THAT THERE WAS 



PAGE 15 


PROC14/LIB«DR0.PHOC 


269. 








270. 


0,00 115L 






271. 








272. 








273. 








274. 








275. 








276. 








211, 








218, 








279. 








280. 


000115L 


00 n 0001 


1 10 in 00 




000 1.1 6L 


01 000101 


00000100 


281. 


000117L 


11 000010 


01001001 


282. 








283. 


000120L 


0-1 0001 01 


0001 000 


284. 


0001 2 IL 


11 0000 10 


i.IOOOlOO 


285. 








286. 


000I22L 


OlOJOlJOl 


.11111 no 




000 1 23L 


00 1 1 1 1 1 


0000100 


287. 


000 1 24L 


00 1.10001 


1 1000 1.10 




000125L 


00 1 1 000 I 


1 1 1 00 1 1 


288. 


000126L 


00 11.0001 


DJOlOOOl 


289. 


000127L 


00 1 1 n 1 


00101 100 


290. 


000130L 


00 11000 1 


00 1 1000 1 




0001 31 L 


1 000 1 0.1 


000 00010 


291. 


000132L 


1 1 0000 1 1 


1 1 00 1 1 1 


292. 


0001 33L 


01 0001 01 


0000 100 


293. 


000I34L 


11000010 


1 1000 100 


294. 


0001 35L 


00 1 1 000 1 


00010100 




000136L 


OOllOJ \\ 


001 01 on 




000137L 


00 110 1 11 


001 00001 


295. 


000140L 


00 11 000 I 


100 10000 




0001 41 L 


00010110 


on 10010 




000142L 


00 1 J 0.1 11 


1 0000 no 




000143L 


00 11 0001 


10110000 




000144L 


00 110110 


100 00 10 J 


296. 


0001 45L 


010.10001 


00 1 10001 




000146L 


Olio n 11 


101 10001 


297. 


000147L 


noon 11 


01111011 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 07AUG82 

. INPUT OUTPUT OPERATIONS (NON-IMA VERSION) 



15»52 



+ 

MIN« 

. NOTE* IF EI / MIN, THE EI DOESN'T TAKE EFFECT UNTIL THE INSTRUCTION 
AFTER THE MI.N. ONE LATER THAN ON 55 00 

BUT, IF MIN INTERRUPTED AT MACRO LEVEL FOR ANY REASON, 
WHEN IT IS WETURNED IT rtILL BE AS IF THE EI HAD ALREADY TAKEN EFFECT 1 



(111 061 ) MIN 
5. 15'~5.60 + C * 8.30 



TSTIP 



MINWO 



,SWUSEW.PSWI 



MULTIPLE INPUT 

(HL) <- INBUS; HL <- HL + 1 

C <- C - l; RPT UNTIL C=0 (16) 



ONLY CONTINUE IF PkIVED 



** MIN'S ILLEGAL ON 9462 ** 



PRELOAD MAR WITH WHERE TO SAVE DATA 

ADD 0.15 DELAY TO MATCH TIMING OF 6600!! 
START ZEROTH DELAY 
WAIT ON INITIAL DELAY 



DO NOT CONTINUE IF PARITY FAULT 

GET DATA FAST ACKNOWLEDGE AND SAVE IT 



UPDATE HL, SADLY CAN^ T BE TOO FASl 



LDRI TEMPI ,CODM IN, CC NEEDED ONLY FOR COMMON SPEEDUP CODE 

BRA MINOUT GO TO COMMON MIN/MOUT CODE 



BRA 


IVIOL$,FZ 


IFS 


CAPIMA 


TSTIT 


,SWIDEV 


BRA 


MINPAR,FZ 


XIF 




DOPI 


M0DW,ND,-1-SWI 


DLDX 


HL2MR 


I DTP 


SNID 


STB 


SIOD 


TSTIP 


.STIODR, STATUS 


BRA 


MINWO, TZ 


TSTIT 


,STPFIN 


BRA 


MINPAR,FZ 


LDPP 


SINS, INBUS, MDW 


DADDP 


URO+UR,MARI 



( 

( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 

i 

( 
( 

( 

( 

c 
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298. 
299. 
300. 
301. 
302. 
303. 
304. 
305. 
306. 



307. 

308. 
309. 
310. 
311. 
312. 
313. 

314. 

3.15. 

31 6. 

317. 

318. 
319. 
320. 

32 I . 
322, 
323. 

324. 

325. 
326. 
327. 

328. 
329. 
330. 
331. 
332, 
333, 
334. 
335. 



PROC14/LIB:DR0.PriOC 



000160L 



000 I SOL 
OQO 1 51 L 
000 1 52L 
000153L 
000154L 
000155L 

000156L 
000157L 

000160L 
0001 61 L 
000162L 
000163L 
000164L 
000165L 
000166L 
000167L 
000J70L 
0001 71 L 
000172L 
000173L 
000174L 
000175L 
000176L 
000177L 
000200L 
000201 L 
000202L 
000203L 



00 110001 
00 110001 
OOUOJ II 
00 1 1 0001 
1 000 1 I 
11 000010 



01 



000 1 1 
0000 10 



OlOlOJD.l 
00 110111 
1 1 000 I 00 
IIOIOJ 11 
00 I 1000 I 
00 1 1 I 1 1 
00 11 OJ II 
010.10001 
00 110] 11 

00 11 0001 

01 000101 
II 0000 11 

OlOOOJOl 
11 000010 
00 1 101 I 1 
00 1 1 1 1 1 
00 110001 
00 110001 
DIOlOOOl 
I t ] I I I 



000204L 

0002 04L DO llOOOi 

000205L 0.1 00010.1 

00D206L N 0000 1 



1 1000 110 
1 11 00 I 1 
1 00 I 1 I 

no 111 00 

00000 100 
01001 001 

0001 000 
11010 11 

.1 IJ 11 MO 

00001 00 

1 0001101 
00000101 
001-10 1-10 
001 00000 
0010 1 100 
01010111 
000 00000 
001 10001 

0000010 

1 0000 110 
00001000 
lOIlOlOO 
OJO 1 I 1 1 1 

0001100 

1 0000 1.10 
1 1 00 1 1 
00 1. 1 1 00 1 
101 10001 



00 1 1 000 1 
000 00010 
11 1 1 1 1 



000207L 
0002 lOL 
0002 ML 



00 11 0001 
01010100 
00 1 1 1 I 1 



1 10.10010 
00000001 
0.11 00010 



MICHO-PHOCESSOH EMULATION SUPPORT CODE - HJS - 07AUG82 15»52 

. INPUT OUTPUT OPERATIONS (NON-IMA VEhSION) 

+ 

MOUT» 

. NOTE* SEE THE NOTE IN MIN IN RELATION TO EI 



(111 071) MOUT 
. 5.15~5.60 + C • 8.50~9.60 



MOTrtO 



* 

MINOUT 
MINWl 



• * * 

* • * 



DLDX 



TSTIP 



LDRI 

TSTIP 
BRA 



HL2MR,,SMR 



,SWUSER,PSWI 



MULTIPLE OUTPUT 

OUTBUS <- (HL)5 HL <- HL + 1 

C <- C - U RPT UNTIL C=0 (I6> 

GET DATA AS SOON AS POSSIBLE 



ONLY CONTINUE IF PRIVED 



BRA 


IVIOL$,FZ 


IFS 


CAPIMA 


TSTIT 


.SWIDEV 


BRA 


IMAOUT,FZ 


XI F 




DOPI 


MODWtND,- 



MODW»ND,-l-SlilINTE DISABLE ONE M .SEC. . INTERRUPT 
MWAIT ,MEMPFO 

LDPP OTBUS.MDR.SIOD OUIVUT DATA AND START DELAY 

FIX IT UP FOR THE SOTS 



DELAY miLE DATA GETS TO THE DEVICE 

DO THE PARITY CHECK (FASTEk THAN EX COM 
OK, SO DO 'IHE COMMAND NOW! 

UPDATE HL (THIS IS FASTEST WAY) 

TEMP1.C0DM0UT,CC FOR MINOUl CODE 



LDP I 


LIREG.CODWRT 


TSTIP 


,STIODR, STATUS 


BRA 


MOTWO.TZ 


TSTIT 


.STPFOU 


BRA 


MOTPAR.FZ 


STB 


SOTS 


STB 


I MAR 


DLDX 


MR2HL 



7.00~8. 10 
6.80 - MIN 
1.50 -.RPT 
6.65~7. 1 - END 



.STIODfi, STATUS 

MINWl.TZ 

- MOUT 



WAIT ON ACK. TO GET TO THE DEVICE 



DOPIP 



URFO+URC.SBJ .URI+URC DECREMENT THE COUNT IN C 
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336. 
337. 
338. 

339. 
340. 

341. 
342. 
343. 
344. 

345. 
346. 
347. 
348. 

349. 

350. 

35.1 . 

352. 
353. 

354. 



PR0CI4/LIB»DR0.PR0C 



0002 12L 01 000101 00001 1 1 1 

0002 13L II 0000 11 IJOOOOIO 

0002 14L 01 11 000 J ,1 II 10001 

0002 15L 00 1101 II 000 00000 



0002 16L 
0002 1 7L 
000220L 
000221L 



11 000100 
1 101 1 II 
00 110001 
10.1000 11 



>000222L 010 11001 
>000223L 1100 II IJ 



Oil 10001 

0000101 

001 10 000 
00 I 1 00 1 1 

I II 1 1 1 1 1 
I 11 111 II 



000224L 
000224L 
000225L 
000226L 
000227L 
000230L 
000231 L 
>000232L 
>000233L 



010 10001 
00 1 101 II 

1 1 000 1 00 1 1 1 00 

iioioiii oooooio; 



0000 1 I 1 I 
00000001 



00 I 1 000. 1 

00 I I 1 I 1 

01 1 I 00 1 
1 1 00 1 1 1 1 



00 no MO 

I 0001 1 11 

1 II II 1 11 
1 11 11 1 II 



>000234L 01011001 1 11 II 111 
>000235L 1100 II II 11111111 
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INPUT OUTPUT OPERATIONS 



IMAOUT 



FTCH 1 



TSTIT 

BRA 

LDPR 



MWAIT 



,017 

MINOv^T.TZ 
LIREG, TEMPI 



.MEMPFO 



TSTPT 
BRP 


FI.SRVREO 
IDCODL.TZ 


BRAX 


SRVRPT 


XIF 
IFS 


CAPIMA 


LDP I 


LIMP,IMPL 


MWAII 


.MEMPFO 


LDPP 


IMPO»MDR 


BRAX 


EXMOUT 


BRAX 


FETCri^ 


XIF 





(NON-IMA VERSION) 

BASE 16 END? 

COMPLETE AS A SIMPLE EX COM 

RESTORE TO MIN OR MOUT 



/^AIT ON MIN MDW TO FINISri 

ANY SERVICE REQUESTS? THEN DO THEM 
ELSE, CONTINUE MINTING OR MOUT-'ING 
( I mon ITS ON THIS PAGE) 
DO SERVICE 



r 

( 
( 



FAKE OUT IHE EX WRITE CODE 

BY PUTTING MEMORY DATA IN HIDDEN REGISTER 
AND GO TO COMMON POINT IN CODE 

NEEDED ON THIS PAGE FOR IMA VERSION 



( 
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357. 
358. 
359. 
360. 
361. 
362. 
363, 
364. 
365. 
366. 
367. 
368. 
369. 
370. 
371. 
372. 
373. 
374. 
375. 
376. 
377. 

378. 
379. 
380. 
381. 
382. 
383. 
384. 
385. 
386. 
387. 
388. 
389. 
390. 



391. 
392. 



000236L 



000236L 
000237L 

000240L 



0,1 0001 
00 1 I I i 



00 1 10000 

01 1 1 OJ 



000240L 01010001 

00024 iL noon 11 



000242L 
000242L 
000243L 
000244L 

00,0245L 



00 110001 

00 11 0001 

01 1.10001 



OOIOJOIO 
01011010 



1 1 00 1 00 1 
I 1101 000 
1 II lOOJO 



000245L 0110,11 n 
000246L OOnOJ II 
000247L noon II 



000250L 

000250L 
00025 IL 
000252L 
000253L 
000254L 
000255L 
000256L 



OllOn II 
00 110001 
00 1 I 000 1 
00 1 1 J II 
00 110001 
00 110001 

1 1 00 n 11 



1 11 10010 

000 n 00 
00 1 11 1 n 



I n 10010 

I I 00 1 00 1 
1 1101 000 

000 1100 

1 0001 001 
1010 1000 
01001 1 11 



. NOTE* 
* 

BP« 



FOR INSTRUCTION ENTRIES THE WAY THE PC SHOULD BE LEFT IS SPECIFIED 



( 



052) BP 



9.45~9.65 



LOT I 
BRA 



* 

SC« 



( 



9.45-9.65 



SCRAMU 



LDTI 
BRA 



DLDX 
LDTR 



SCBP 

. 9.I5~9.35 



SCROMLI* 



LDRT 
STB 

BRA 



LDRT 
DLDX 



DLDX 
BRA 



SVBKPNT 
SCBP 



067) SC 



SVSCAL 
SCSP 



PC2MR 
TEMPL 



TEMPL 

IMAR 

SCPC 



TEMPL 
PC2MR,, IMAR 



MK2PC 
SCROM 



I ! PC LEFT AFTER THE INSTRUCTION 

BkEAKPOINT 

(SP-2 I SP-I ) <- PC 

SP <- SP - 2 J PC <- BRKPNT 

DEBUGGING BhEAKPOINT RAM VETCOR 



! ! PC LEFT AFTER THE INSTRUCTION 
SYSTEM CALL (SUPERVISOH CALL) 
(SP-2 I SP-1 ) <- PC 
SP <- SP - 2i PC <- SYSCAL 

SUPERVISOR CALL RAM VECTOR 



J! PC LEFT AFTER THE INSTRUCTION 
!• MEMORY ACCESS & WRITE VOILATIONS 

CORRECT FOR IT 

!! UP THE PC TO NEXT INSTRUCTION 
!! WAM VECTOR FOR INTERRUPT 

RAM VECTOR SAVED 
CORRECT THE PC 



.,!! UP THE PC TO NEXT INSTRUCTION 
!! MEMORY OR SECTOR TABLE PARITY EWROR 
ROM VECTOR SAVED 
TO THE NEXT OP-CODE 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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393. 
394. 
395. 
396. 
397. 
398. 
399. 

400. 



000257L 



000257L 
000260L 
000261 L 
000262L 



OIlOll 11 

01 01 0001 

011011 II 

1 1 00 1 1 II 



SCROML* 



!! t^OM VECTOR ENTRY, PC ALREADY OK? 
.!! FAULT INSIDE MEMORY FAULT ROUTINE 
!» RESTART, DEC PC ALREADY DONE AS NEED 



1 11 10010 
1 I 1 10000 
1 11 10001 

001 lion 



SCROM« 



LDRT TEMPL 

LDRI TEMPH,SYSR0M>8 

BRA SCDON 



DATAPOINT CONFIDENTIAL INhORMATION - SEE PAGE 1 



MGE 20 


PROG 


4/LIB«DR0.PHOC 


MICHO-PROCESSOH EMULATION SUPPORT CO 










. SYSTEM 


CALLS AND 


OP-CODES FOR IT 


40 1 . 








+ 






402. 


000263L 






UDPOP* 






403. 








• 


( 000) 


HALT 


404. 








• 


( 001 ) 


HALT 


405. 








• 


( 377) 


HALT 


406. 








. 9.45~9 


.65 (+0.10 


IF NOT USER MODE) 


407. 














408. 


000263L 
000264L 


00 1 10001 
1 00.0 1 1 


1 .1 1 1 1 00 
0000 100 




TSTIP 


.SrtUSER,PSWI 


409. 


000265L 


M 0000 1 1 


01000 1 11 




BHA 


UDOP,TZ 


410. 








* 






41 1. 


000266L 


01010001 


000 11 no 


IVIOL$» 


LDTI 


SVIVIOL 


412. 


000267L 


1 1 00 1 1 1 1 


fl 1000 1.10 




BRA 


SCLSTW 


413. 








* 






414. 


000270L 






UDOPi 






415. 










( 147) 




416. 










( 171) 




417. 










( 173) 




418. 










( 175) 




419. 










( 177) 




420. 








.' 9. 00~9. 


.20 (+0.65 


IF IMP # 0) 


421. 














422. 


000270L 


01010001 


00 110 110 




LDTI 


SVUAINS 


423. 








* 






424. 


00027 IL 






SCLSTW* 






425. 








• 






426. 








• 






427. 








• 






428. 














429. 


00i)271L 
000272L 


1 1 000 1 00 
110101 11 


.0.1000 110 
0000101 




MWAIT 


,MEMPFO 


430. 


000273L 


Olio 11 11 


1 11 10010 




LDRT 


TEMPL 


431. 


000274L 


11001001 


001 1 1 101 


SCLST* 


BRA 


SCRAM, T«i.IZ 


432. 








• 






433. 


000275L 
000276L 
0002 77L 


00 1 1 000 1 
.00 1 1 000 1 
00 1101 11 


1 1 00 1 00 1 
1 1101 000 
00001 10 J 




DLDX 


PC2MR,.DMAR 


434. 


000300L 
00030 IL 


00 1 1 000 1 
00 110001 


.1 0001 001 
1 1 1 000 


SCPC 


DLDX 


MR2 PC 


435. 








• 







07AUG82 15*52 



!! FC LEFT AT NEXT INSTRUCTION 
UNDEFINED PRIVILEDGED Op 
(SP-1 I SP-I ) <- PC 
SP <- SP - 2; PC <- IVIOL 



UNDEFINED IF IN USER MODE 

!! PC LEFT AT LAST INSTRUCTION 

TRIES PRIV'D INSTRUCTION WHILE USER MOD 

J! FC LEFT AT LAST INSTRUCTION 

UNDEFINED Of-CODE 

(SP-2 I SP-1 ) <- PC 

SP <- SP - 2; PC <- UAINST 

UNDEFINED ( EXCEPF APF VERSION) 



UNDEFINED OP-CODE VECTOR SYSCALL 

II RAM VECTOR INTERRUPT 

•I 5500 I/O BUS PARITY ERROri 

!! BACKUP PC TO START OF 

II INTERRUPTING INSTRUCTION 



SA\/E RAM VECTOR ADDRESS 
POINTS TO START OF LAST INSTRUCTION. 
•! 1 MSEC INTERRUPT ,WEN REPEATED 
BACK UP TO IMP SPEC CODE 



1! SYSTEM CALL PERFORM SECTION 
SAVE P.C. AS SHOULD BE 



DATAFOINT CONFIDENTIAL INFORMATION - SEE FACE I 
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436. 
43 7. 

438. 
439. 
440. 
441. 
442. 
443. 

444. 
445. 
446. 
447. 

448. 
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MICHO-PROCESSOri EMULATION SUPPORT CODE - riJS - 
. SYSTEM CALLS AND OP-CODES FOR IT 



07AUG82 15152 



000302L 01 01 0001 
000303L 110 11 11 



000304L 



I 1101 1 1 
1 11 1000 



449. 

450. 

451. 

452. 
453. 



454. 
455. 
456. 
457. 
458. 
459. 
460. 

461. 
462. 



000304L 
000305L 
000306L 
000307L 
0003.1 OL 
00031 I L 
000312L 
00031 3L 
0003 14L 
000315L 
0003 16L 
000317L 
000320L 
00032-1 L 
000322L 
000323L 
000324L 
>000325L 
>000326L 
>000327L 

000330L 



1 J 000 1 
00 I 1 I 1 1 
00 1 1 1 1 1 
01010001 
00 1101 OJ 
00 1 1 0001 
00 1101 11 
00 1 1 0001 
01010101 
00 1101 11 
00 I 10001 
00 1 I 1 1 1 
01010101 
00 1 1 I 1 1 
01010001 
00 1 1 1 1 1 
1 1 000 1 00 
0101 1001 
010-1 0001 
11000 110 



1 11 10000 
1 11 00000 

0000101 

1 10 00 000 
110010 11 
1 1101010 

0001101 

1 10.1 1100 
110 110.10 

00001 00 

1 10.1 1100 
001 00001 
1 1 1 1 0.1 
1 000 1 1 00 
000 1 00 
000 0000 
0010101 

1111111 
1111111 
1 11 II 1 1 



000330L 

000331 L 

000332L 1 

000333L 1 

000334L I 

000335L 1 

000336L 1 

000337L 1 

000340L 1 

00034 I L 1 

000342L I 

000343L 1 

000344L 1 

000345L 1 

000346L 1 

000347L 1 

000350L 1 

00.035 IL I 





00 



000 
00 
1 I 



0000 

1 1 

00 



00 



SCRAM* 



LDHI 



TEMPH,SYSIVR>8 



!! RAM VECTOh DOESN'T t^ANT PC BACKUP 
1! 1 MSEC INTERRUPT k^HEN NOT REPEATED 



* 

SCDON* 

. 8.20~8.40 



LDPI 

LDPT 
LDTI 
DOP 
LDX 

DOP IP 



LDPP 

DOP I 

LDPI 

MWAIT 
BRCX 



MAH0H,SYSR0M>8. AND. 0360 CORRECT ENTRY 017 TO BE SURE 

IN THE SECTOR TABLE 
POINT TO THE PSW SAVE BYTE 



STW 

0300 

SP2MRL,ND 

SP2MRri,DMAR 



MODW,ND,-l-S/VSCF,PSrtI CLEAR NECESSARY SYSCALL FLAGS 

MDW.PSWI SAVE ORIGINAL PSiV IN ITS SAVE AREA 

PSrtO.ND,-l-SWSCF SET NEW SYSCALL FLAGS 

LIMP.PCL GET SET FOR PUSH OF THE P.C. 

.IGNORE WAIT ON WRITE & IF ERROR, TROUBLE 

PSHSTO.Fa/.MP.PCMOD IF NO ERRO«. GO TO IT (SAVED I WOHD) 



mempfsc 

. WOW! SYSTEM SAVE AkEA HAD SECTOR TABLE Ok WRITE PROTECT FAULT 
USE THE ROM VECTOR POINT TO MARK A DOUBLE BAD INTERRUPT 



LDTI 
BR AX 



SRSYSMF 

FETPC 



DO SPECIAL INTERRUPT 

FORGET PUSH. WILL PROBABLY NOT WOkK 



lABPAGE PROCL 
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000352L 
000353L 
000354L 
000355L 
000356L 
000357L 
000360L 
000361 L 
000362L 
000363L 
000364L 
000365L 
000366L 
000367L 
000370L 
00.0371 L 
000372L 
000373L 
000374L 
000375L 
000376L 
000377L 



( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 

c 
( 
( 
( 
c 
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465. 
466. 
467. 
468. 
469. 
470, 
471. 
472. 
473. 
474. 
475. 
476. 
477. 
478. 
479. 
480. 

481. 
482. 
483. 
484. 
485. 
486, 
487. 
488. 

489. 
490. 
491. 
492. 
493. 
494. 
495. 
496. 
497. 
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000400L 



0004 OOL 
00040 I L 
000402L 
000403L 
000404L 
000405L 
000406L 
0004 0.7L 
0004 I OL 
0004 I IL 
000412L 
0004 13L 
0004 14L 

0004 15L 



0004 1 5L 
0004 16L 



00 II 0001 
01000101 
11 000010 
01 00010 1 
1 1 1 00 1 
110 11011 
01000101 
1101 1000 
11010010 
010 100 11 
00 1101 II 
0101 0001 
110 1 II 1.1 



110 11100 
00000100 
01 00 1 001 
001 00000 

1 1 000 no 
1 1000 no 

100 00000 
1 11 10010 

0000 1 1 1 
001 00000 
1 000 I 1 00 

001 II no 

1 1 1 00 I 00 



1 1 1 00 
1101 11 



1 1110 
1 1100 



00 
01 
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5*52 



* 
BETA* 

( 020) BETA 

30.60~31.40 (1.35 IN BETA) 



( 111 020) BETAL 
16. 16~16.75 

(062 020) SYSSAV 

14.50-14.70 (-0.10 IF BETAS) 



SAVE ALPHA REGS AND LOAD BETA SET 

'FXLHEDCBA' <- FXLHEDCBA 
FXLriEDCBA <- "FXLHEDCBA" 

LOAD HEGS FHOM BETA SAVE AHEA 
FXLHEDCBA <- "FXLHEDCBA" 

SAVE SYSTEM REGS 
"'FXLHEDCBA"^ <- FXLriEDCBA 



. NOTE: CAN NOT IMS. INTERkUPT BETWEEN BETA & FOLLOkUNG INSTRUCTION. 



ALPHAS 
SYSSAV 



TSTIP 

BRA 

TSTIT 

BRA 

BRA 

TSTIT 

BRA 

BRA 

DOPI 

LDTI 
BRA 



,SrtUSER,PSWI 

I VIOLS, FZ 

,SWRPT 
BETAL, FZ 
BETAL, T«i, 10 
,S»ULBT 
SYSSAV, F«^,IZ 
FTCHIA8,FZ 
PSW0,0R,SWRPT 



ONLY IF PRIV'D 



IF HEHEATED DO SECOND HALF 

IF ODD, ONLY LOAD BETA REGS 

TEST HERE, SYSSAV NEEDS IT 

SYSTEM SAVE IF NON-ZERO 

SIMPLE BETA, FORGET IT, ALREADY IN BETA 

TWO PARTS, SO REPEATED 



SESAVAF.AND.ai77 POINT TO CORhECT SAVE AREA (7 BITS!) 
MODSAV 



(062 020) SYSSAV 
14. 50-14.70 (-0.10 IF BETAS) 



BRA 
BRA 



ALPHAS, TZ 
BETAS 



SYSTEM SAVE WHICHEVER REGISTErtS & FLAGS 
"'FXLHEDCBA"' <- FXLHEDCBA 

SAVE ALL REGISTERS TO THE ALPHA SET 
NO, TO BETA SET 



( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
( 
( 
( 
( 
C 

( 
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498. 
499. 
500. 
50 J. 
502. 
503. 
504. 
505. 
506. 
507. 
508. 
509. 
5,10. 
511. 
512. 
513. 
514. 

515. 
516. 
517. 
518. 
519. 
520. 
521. 
522. 

523. 
524. 
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0004 17L 



000417L 
000420L 
00042 1 L 
000422L 
000423L 
000424L 
000425L 
000426L 
000427L 
000430L 
00043 IL 
0004 32 L 



00 1 1 0001 
0.1000101 
11 0000 10 
01 00010 1 

1 1 1 00 1 

noiio II 

11011000 
01 000101 

1 1 1 00 1 I 
1 1 00 1 1 
00 1101 IJ 
0101 0001 



1 10 11100 

0000 100 
01001 001 
00100000 

1 00 1 1 1 1 
100 11 IJO 
10111010 
100 00000 
00000 1 11 
001 00000 
.1 000 1 100 
00110101 



+ 

ALPHA* 

( 030) ALPHA SAVE BETA hEGS AND LOAD ALPHA SET 

30.60~31.20 (i4.85~l5.05, 16.15-16.55 IF SPLIT) 

"FXLHEDCBA" <- FXLHEDCBA 



(111 030) ALPHAL 
16.25~16.65 

(062 030) SYSRET 
25.10~25.50 (+0.10~0.30 IF BETAL) 



FXLHEDCBA <- 'FXLHEDCBA' 

LOAD REGS FROM ALPHA SA\/E AREA 
FXLHEDCBA <- 'FXLHEDCBA' 

RESTORE REGS AND kETURN 

PC <- (SP+1 I SP); SP <- SP + 2 

FXLHEDCBA <- '"FXLHEDCBA"' 



. NOTE* CAN NOT IMS. INTERhUPT BET^VEEN ALPHA & FOLLOWING INSTRUCTION. 



TSTIP 



,SWUSER,PSWI 



BETAS 



BRA 


IVIOL$,FZ 


TSTIT 


,SWRPT 


BRA 


ALPHAL, FZ 


BRA 


ALPHAL, T§, 10 


BRA 


SYSRET, Fe/,IZ 


TSTIT 


,SWALBT 


BRA 


FTCHIAB,TZ 


DOPI 


PSrtO,OR,SWRPT 


LDTI 


SESAVBF.AND.O 


BRA 


MODSAV 



ONLY IF PRIVED 



IF REPEATED JUST DO SECOND HALF 
NO SAVE, JUST DO ALPHA LOAD 
RELOAD REGS ^ RETURN 
IS A SIMPLE ALPHA INSTRUCTION 
FORGET IT, ALREADY IN ALPHA MODE 
MARK h'EPEATED BECAUSE 2 PARTS! 
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525. 
526. 
527. 
523. 
529. 
530. 
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531. 

532. 
533. 



534. 

535. 
536. 
537. 
538. 

539. 
540. 
541. 
542. 
543. 

544. 
545. 

546. 
547. 
548. 
549. 

550. 

551. 
552. 



0004 33L 



0004 33L 
000434L 
000435L 
000436L 
000437L 
000440L 
00.044 IL 
000442L 
000443L 
000444L 
000445L 

000446L 
000447L 
00045.0L 
00045 1 L 
000452L 
000453L 
000454L 

000455L 
000456L 
000457L 
000460L 
00046 IL 

000462L 
000463L 
000464L 
000465L 
000466L 
000467L 
000470L 



noil I.I 1 II 10010 



0110 
00 11 0001 
01010101 
1 1 1 00 1 1 

00 no 1 1.1 
00 noooi 

00 11000 1 
OIOIOIOI 
00110111 
0101 0001 
00 1 1 J 11 

00 II 0.1 11 
00 110001 
11 01 01 00 
IIOIOI II 
00 I 1 0.1 1 1 
00 11 01 11 

no 1 1000 

00 11.0001 
I 000 1 I 
1 1 1 00. 1 1 
01010101 
00 11 1 1 1 

00 11 0001 
1 1 I 00 I 
00 1 I 0001 
01000101 
11 I 1 00 
IIOJO.I 11 

n 1 00 1 



00 

11011011 
I 0000000 
1 11.10010 
1 1000000 
1 1101010 
001 10.10 1 
I.IOOOOII 
0010000 1 
00010 000 
000 00001 

0001001 

lion I II 

1 1010 I II 
OOOOOIOI 

0000 110 1 

001 00001 
llOJIOOl 

no 11100 

001 00 000 
1101000 

1 11 It no 

0000 100 

00 no 000 

101 1 1 i 00 

1 1 1 I 1 00 
1 00 00000 
1 1001001 

000010.1 

1 00 II 11 



DATAPOINT CONFIDENTIAL INFORiMATION - SHE PAGE I 

MICRO-PHOCESSOri EMULATION SUPPOnT CODE - HJS - 
. REGL, ALPHA, BETA MODE SkUPS AND SUB-PARTS 



7AUG82 15s 52 



+ 

MODSAV SAVE FLAGS AND KEGS IN SAVE AHEA 

. 13.05~13.25 (IF FECTHW, +0.75 IF ALPHAL, +0.65 IF BETAL, +0.50 IF SERVICE) 



MODSVLP 



LDRT TEMP2 

DOTIP ,ND,0200,SPIL 

DOPR MAH0L,0R,TEMP2 



KEGSVLP LDP I 



STB 

LDTP 
MWAIT 

STB 

LDPT 
BRA 

TSTIP 

BRA 
DOPI 



TSTPT 

BRA 

TSTIP 

MWAIT 

BRA 

BRA 



SAVE AWAY FOR THE MOMENT 

GET 128 BYTE BOUNDARY BIT (1 MSBITJ 

COMBINE ^iVTH THE FLAG ADDhESS 



LDX SP2MRH MSB STACK POINTER IS SAVE AKEA ALSO 

DOPIP MDrt.ND,0303.UCFLG SAVE THE FLAGS, ONLY 4 BITS OF INTEREST 



LIMP, IMPS 



I NIT COUNT 

SPEEDUP, GET DATA HOH 

SAVE TOE REGISTER 

LOOP TILL ALL 8 REGS. ARE SAVED 

WELL, ONE OR TWO PARTS? 

ONLY SYSSAV, NO-LOAD NEW REGS. 



DIMP 
IMPI 

,MEMPFO 

DMAR 

MDW 

MODSVLP, Fa, IZ 

,SWRPT,PSWI 

FTCHAbW,TZ 

M0DW,ND,-1-SWINTE TEMPOKARILY DISABLE INTERhUPTS FOri IT 



FI,SRVrtEQ 
M0DSRV,F2 
,SWALBT,PSWI 

,MEMPFO 

ALPHAL, FZ 
BETAL 



ANY WEUUESTS PENDING? 

YES, DO THEM AND I HOPE NO TROUBLE 

WHAT WAS IT? 

NEEDED AFTErt MDW AT END OF LOOP ABOVE 

WAS BETA, DO ALPHAL NOW 
WAS ALPHA DO BETAL NOW 



r 

(' 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 

( 

( 
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553. 
554. 
555. 
556. 
557. 
558. 
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. REGL, ALPHA, BETA MODE SWAPS AND SUB-PARTS 
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5,52 



559. 

560. 

561. 

562. 
563. 
564. 
565. 

566. 
567. 
568. 
569. 
570. 
571. 
572. 
573. 
574. 
575. 
576. 
577. 
5 78. 
579. 
580. 
581. 
532. 
583. 
584. 
585. 
586. 

587. 



588. 
589. 
590. 



591. 

592. 
593. 



00047 IL 



000471L 
000472L 
000473L 
00.0474L 
0004.76L 
000476L 
0004 77L 
0005 OOL 
00050 IL 
000502L 

>000503L 
>000504L 

000505L 



.00 110001 
OIOIOIOI 
ID 100 II 
00 1 101 1.1 
00 I 1 000 1 
00 1 I 1 I I 

00 1 1 OOX) 1 

1 1 00 1 1 
01010101 
1 1 1 1 1 1 1 

1 1 1 00 I 
1 1 00 1 1 1 1 



no lion 

100 00000 
00110101 
1 1000 000 
.1 11010.10 
01 000 111 
1.10.11 100 
1 00 00 000 
li 0.11 1 11 
1 00 1 1 1 

1 II 11 111 
I II 1 11 n 



000505L 

000506L 

>000507L 

>0005.10L 

>0005nL 

0005 12L 
0005 12L 
0005 13L 
0005 14L 
0,005 I 5L 
0005I6L 
0005 17L 
000520L 



01 01 0001 

00 110111 
01011001 
010 1 00.0 1 

1 I 00 It 1 1 



00 I I 000 1 
00 110001 
00 1101 11 
00 11 0001 
00 110001 
00 11 0001 
01010001 



00001 001 
0000000 1 

1 11 n I II 
.1 II 11 1 II 
11111111 



1 1 00 I 00 1 
1 1101 000 

000 1101 

1 0001 001 
I 01 01 000 
1 1101010 
I 1000000 



+ 

betal 

(111 020) BETAL 
. 15.40-16.00 (HERE ON) 



LOAD rtEGS FriOM BETA SAVE ArtEA 
FXLHEDCBA <- "FXLHEDCBA" 



MODSRV 

• 

SYSRET 

.* 

.* 



DOTIP 

DOPI 

LDX 

DOTIP 

DOTI 
BRA 

BRAX 



.ND»0200,SPIL 

MAROL,OR,SESAVBF.AND.0177 POINT TO BETA FLAGS IN SAVE AREA 

SP2MRH,SMH 

,0R,SWALBT,PSWI SET BETA MODE 

RESET REPEAT FLAG (IF SET) 



,ND,-i-SWRPT 
MODLOD 

SRVDO 



GO TO SERVICE AS NEEDED (MODSAV USES IT) 



NOTE* THIS INSTRUCTION IS VERY LONG IN EXECUTION 

IF DMA SLOWS IT EVEN FARTHER WE MAY HAVE t-ROBLEMS 



.* WARNING* 

.* THEN: 

.* 

,* 

.* 

.* 

.• WARNING: 

.* 

.* 



IF AS SOLUTION TO LENGTH IT IS DONE AS REPEATED INSTRUCTON 

IF INTERUPTED (I.E. BY RESTAhT -DEBUG INTERRUPT) 

THE PC WILL REFLECT THE ADDRESS OF THE INSTRUCTION TO -RETURN 

TO, WITH REPEATED FLAG ON AND THE INCORRECT REGISTErt SET IN THE 

SUPPORT REGISTERS (THE ALPHAL OR BETAL NOT COMPLETED!) 

THIS IS VERY BADi BUT POSSIBILITY IS LOW AND NO SOLUTION SEEN 

IF INSIDE SYShET (REGISTER LOAD PArtT) THEHE IS A MEMOKY FAULT, 
THE PC WILL BE INCORRECT BECAUSE OF A SPECIAL PRE-DECREMENT. 
IF THE IMP WAS NON-ZEkO, IT WILL BE EVEN FARTHER OFF 



(062 030) SYSRET SYSTEM WETUHN (FROM SC, BP, ETC) 

24.70~25.l0 (+0.10-0.30 IF BETAL) PC <- (SP+1 I SP) ; SP <- SP + 2 

FXLHEDCBA <- '"FXLHEDCBA"/ 



LDPI 
BRCX 



SYSRET 1 : 



DLDX 



DLDX 

LDX 
LDTI 



LIMP,PCL 
POPST0,,SYSKET0 

PC2MR,,DMAH 



MR2PC 

SP2MRH 
300 



GET THE RETURN ADDriESS INTO THE P.C. 
OFF PAGE WITH SPECIAL HETUHN 



CORRECT FOR IMAR IN FETCH CODE 



GET THE PSW 
TO BE LOADED 



DATAPOINT CONFIDENTIAL INFORMATION - SEE HAGE 1 
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594. 
595. 



596. 
597. 

598. 
60 1. 
602. 
603. 

604. 
605. 

606. 
607. 

608. 
609. 
610. 
611. 
612. 
613. 
614. 
615. 
616. 
617. 
618. 

6.19. 

620. 

621. 

622. 
623. 
624. 
625. 
626. 
627. 
628. 
629. 
630 . 

631. 

632. 

633. 
634. 



PROC14/LIB»DH0.PHOC 



MIChO-PHOCESSOR emulation support code - HJS - 
. REGL, ALPHA, BETA MODE SrtAPS AND SUB-PARTS 



07AUG82 



5*52 



0005.2.1 L 00 110101 

000522L 00 11 0001 

000523L 01010101 

000524L 00 1101 n 

000525L OOllOJ n 

000526L OOlJOl 11 



000527L 0101010.1 
000530L Olio 11 11 
00053 IL 0101 0001 
000532L 11 01 01 00 
0005 33L 11 010 J II 
000534L 00 11 01 01 



I 10010 11 
I I 1 1 1 00 
1 11 1101 1 

0000100 



00001 
1000 







000535L 
000536L 



01 

00 



10011 
101 II 



00053.7L 0.1000101 
000540L I 101 0010 



000541L 



00054 IL 00 11 0001 
000542L 01010101 
000543L 01010011 
000544L 00 I 101 11 
000545L 00 I I 0001 
0Q0546L 00 1101 11 
000547L 00 110001 
000550L OIOIOIOI 



00.055 IL 



000 1 1 000 

1 11 10001 
1 1100.1 1 1 
I 1 00 1 1 

000010.1 
OOllOllO 

1 11 10001 
1 000 1 1 00 



10000000 
1 1000 1 10 



1 10 1101 I 
1 00 00000 
001 II 1.10 
Kl 00 000 
1 IIOJOIO 
01000111 

no 11100 

OlOll 111 



000 55.1 L 
000552L 
000553L 
000554L 
000555L 
000556L 
000557L 
000560L 
00056 IL 
000562L 



OOllOJ II 
000101 11 
1 1 OJ 01 00 
1101.01 11 



00 I 
00 1 
00 1. 
00 1 



.0001 
0010 
0.1 1 1 
Olll 



OOIJOJ 11 
1101 11 II 



10001 100 
101 100 10 
1 00 J 1 00 
.0 0000101 
00 110 MO 
00 110 110 
000 1 101 
010001 11 
0000 1.10 
0.11 00011 



DOP 
DOPIP 



STB 

IFC 
XIF 
IFS 
DORI 

LDTI 
MrtAIT 

DOTP 
DOPR 

XIF 



SP2MRL,ND FROM THE SYSTEM SAVE AREA 

MODrt,ND,-l-S»JUSEK,PS^I ASSUME ENTERED INST LEGALLY, (PRIVD) 



DMAR,SMR 
CAPIMA 



SO, COMPLETE IT LEGALLY IN PRIV^D MODE 



NON-IMA VERSION 



CAPIMA IMA-VERSION 

TEMPI, ND,SWIDEV+SWSTDT SAVE OLD ADDRESSED/MODE BITS 

-1-SWIDEV-SWSTDT 
,MEMPF0 



PSrtO, OR, TEMFl 



TSTIT ,SWALBT 

BRA B£TAL,FZ 

BRA ALPHAL 
* 

ALPHAL 

(111 030) ALPHAL 
. 15.50~15.90 (HERE ON) 



SELECT ONLY THOSE BITS THAT CAN CHANGE 
SET OLD VALUES OF SAVED BITS 



MAY HAPfEN if stack IN PROTECTED MEMORY 
WHICH WAY TO GO? 
TO BETA 
TO ALf^HA 



LOAD REGISTERS FROM ALPHA SAVE AREA 
FXLHEDCBA <- 'FXLHEDCBA' 



DOTIP ,ND,0200,SPIL GET IT ON 128 BYTE BOUNDARY 

DOPI MAROL,OR,SESAVAF.AND.0177 ONLY 7 BUS OF INTEREST 

LDX SP2MRH,SMR 

DOTIP ,ND,-l-SWRPT-SWALBT,PSWI RESET REPEAT FLAG AND SET ALPHA 

BRA MODLOD 

MODLOD 

LOAD USERS FLAGS AND REGISTERS 
. NOTE* IF MACRO LEVEL PLAYS. WITH FLAG BYTE, IT BETTER DO IT CORRECTLY 



LDPT 
CCLR 
MWAIT 

DOTPP 

STB 

STB 

BRA 



PSWO 

,MEMPF0 

,AC,MDR,MDR 

DMAR.SMR 

LUF 
MODLOP 



LOAD STATUS WORD 

SET USER FLAGS 
POSITION CORRECTLY 

AND DO THE REGISTER LOAD 



DATAFOINT CONFIDENTIAL INFOriMATION -SEE PAGE I 
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637. 
638. 
639. 
640. 
641. 
642. 
643. 
644. 
645. 
646. 



PROC14/LIB»DR0.PROC 



MICRO-PROCESSOR EMULATION SUPPOHT CODE - HJS - 
. REGISTER SAVE AND RESTORE 



07AUG82 15*52 



647. 

648. 

649. 
650 . 
651. 

652. 
653. 

654. 

655. 

656. 
657. 

658. 
659. 

660. 

661. 
662. 



000563L 



000563L 
000564L 
000566L 
000566L 
0005 67L 
000570L 
00057 IL 
000572L 
000673L 
000574L 
000575L 
000576L 
000577L 
000600L 
000601L 
000602L 
000603L 
000604L 
000605L 
000606L 
000607L 
0006 lOL 
0006 1 I L 
0006 12L 
000613L 
0006 14L 
000615L 
0006 16L 
000617L 
000620L 
00062 I L 
000622L 
000623L 
000624L 
000626L 
000626L 
>000627L 
>000630L 



11 01 1000 
00 1 1 000 1 
01010101 
00 1 1 I 1 1 
00 11 000 I 
00 1 1 000 I 
00 1 1 I 1 1 

1 1 00 I It 
11010100 
110101 11 
00 11 0001 
OHO II II 
010101 00 
00 110,1 11 
1 1 00 I I 1 

1 1 01 01 00. 
11 010] 11 
00 110] II 
00 1 1 
1 1 00 1 
11 0101 
1101.01 

00 110001 
Olio II 11 

1 1 1 00 
00 1101 II 
J I 1 000 1 
110.10100 
1 1 1 I 1 1 

00 1 1 1 1 1 
LIOOOJ 

101 11 
1 10 J II 

10001 
1101 II 

1101 11 II 

1 1 1 00 1 
1 1 00 1 1 1 1 



11 

10 
00 

II 



01 
00 
00 
00 
00 



I I 00 1 1 
1 .1 0. 1 I 1 00 

1 11 II on 

0000100 

1 1001011 
1 11 01 0.10 
010001 II 

I 11 11 1 II 

I 0000100 

00 00 J 0.1 

001 10 1 10 
I 1 I 00 1 
0001 000 
00100001 

I II II 111 

0.11 1 1,10 J 
00000101 

000 1100 
01000 111 

I II 111 11 
on 11000 

0000010 1 

001 10 no 

1 II 10001 
000 00000 
001 00001 
1.1 I 10010 
11 10001 

000010 1 
11000 000 
Jill 000 I 

1 1 1 00 000 
000 1 100 

no 11 100 

00000 100 
11011011 

in II 1 11 
1 n n 111 



* 

REGSt 

. ?? . ?? 



055) HEGS 



(in 065) REGL 
. 13.70~I4.10 



BRA 



DLDX 



FTCHABIV 



LDRP 

DOPI 

LDTR 
MWAIT 

LDPT 
LDPR 

LDPP 

BRA 
BHAX 



REGL»F@,IZ 



REGISTER SAVE 

(SP-7 I SP) <- XLHEDCBA; SP <- SP - 8 

REGISTER LOAD 

XLHEDCBA .<- (HL-7 I riD 

DO REGISTER LOAD NOT SAVE! 



DOPIP M0DW,ND,-1-SWUSER,PSWI ALLO^ STACK ACCESS TO PROTECTED MEM. 



SP2MR,,SMR 



GET TOP ENTRY ON THE STACK 



MWAIT NOOP,MEMPF0 



LDkP 


TEMPL.mDR.CC 


DOPI 


MDrt, SB, 8 


M^^AIT 


noop,mempfo 



SAVE LSB OF POINTER 

UPDATE TOS (ASSUMING KEGS WORKS) 



STB IMAR,SMR 

MWAIT NOOP,MEMPF0 



GET MSB OF TOS 



TEMPH,MDR 

MDkV.SB.O 

TEMPL 
,MEMPFO 



SAVE MSB OF POINTER 

UPDATE TOS (ASSUMING REGS rtORKS) 

GET ORIGINAL (SAVED) LSB 



MAROL LOAD THE MAR WITH THE INITIAL TOS 

MAROH.TEMPH.IMAR AND CORRECT FOR THE FIRST DMAR 



M0DW,PSWI 

REGSVLP 
FETCHW 



RESrOriE THE CORRECT MODE 

AND GO SAVE ALL THE rtEGS 

(SO AS LITTLE CHANGES AS POSSIBLE) 



( 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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PROCI4/LIBIDR0.PROC 


MICRO-PROCESSOR 


EMULATION SUPPO 










. REGISTER SAVE 


AND RESTORE 


663. 








+ 








664. 


000631 L 






REGL 








665. 








• 


(111 055) 


REGL 


666. 








. 13.70- 


14.10 






667. 
















668. 


QQQ63.\ L 
000632L 
.0006 33L 


00 110001 
00 110001 
00 1101 11 


11000 1 10 
1.1 100 10 I 
010001 11 




DLDX 




HL2MR,,SMK 


669. 


000634L 
000635L 


OIOJOOOI 
00 11 1 1 1 


000 10000 
OOOOOOOl 


MODLOP 


LDPI 




LIMP, IMPS 


670. 


000636L 


00 It 1 11 


00001001 


REGLLP 


STB 




DIMP 


671. 


000637L 
000640L 


11010100 
110101 11 


on 00 000 

00000101 




MrtAIT 




,MEMPFO 


672. 


000641 L 


00 110001 


00110 110 




LDTP 




MDR 


673. 


00,0642L 
000643L 


00 1 1 01 1 1 
00 1 1 1 1 1 


000 1 10 1 
01000 111 




. STB 




DMAR.SMR 


674. 


000644L 


00 1.1 0.1 1.1 


10001 1 11 




LDPT 




IMPO 


675. 


000645L 


no 11000 


on 00001 




BRA 




REGLLP,Fa,IZ 


676. 


>000646L 
>000647L 


010 11001 

1 1 00 1 1 1 1 


11111111 
111 11 1 11 




BRAX 




FETCHRW 



07AUG82 15»52 



REGISTER LOAD 

XLHEUCBA <- (HL-7 I HL) 

I NIT HL TO MAR AND GET FIRST kEG (X) 



I NIT COUNTER 
COUNT DOWN 

GET DATA AND STArtT NEXT HEAD FAST! 



SAVE THE DATA IN ITS REGISTER 

LOOP FOH THE FULL COUNT 

RESTORE CORRECT MODE (FOR SYSRET) 



DATAPOINT CONFIDENTIAL INFORMATION - SEE HAGE 1 
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679. 
680. 
681, 
682. 
683, 
684. 
685. 
686. 
687. 
688. 
68P. 
690. 
691. 
692. 
693. 
694. 
695. 

696. 
69 7, 
698. 
699. 
700. 



701. 
702, 
702. 
702, 
702, 
703. 
704. 
705. 
706. 
70 7. 

708. 
709. 
710, 
711, 
712, 

713, 
714, 
715, 
716. 



PROC14/LIB»DH0.PHOC 



MICHO-PROCESSOH EMULATION SUPPORT CODE - HJS 
. SECTOR TABLE LOAD 



07AUG82 15»52 



717. 

718. 
719. 



000650L 



000650L 00 11 0001 
000651L OIOOOIO: 



00 0652 L 
000653L 
000654L 



11 0000 10 
01010101 
11 01 00 11 



000655L 00 11 000 1 
000656L 01010101 
000657L 0110 1111 



000660L 
00066 IL 
000662L 
000663L 
000664L 
000665L 



11 
11 



00010 
000 1 
000101 11 
000101 11 
1 1 00 1 1 
llOJ 11.11 



000666L 110 11 11 

000667L 00 11 0001 

000670L 01010101 

00067 1 L 11 01 00 11 

000672L 1101 1001 
000673L 110 11 11 
000674L 00 110001 
000675L 01010101 
000676L 1 1 1 00 1 



000677L 
000700L 
0a07.01L 
000702L 



0110 11 1 1 
00 1 1 000 1 
1 1 1 00 1 
00.1101 11 



000703L 00 11 0001 
000704L 1.10 II IJ 



000705L 
000706L 



00 
00 



10110 
101 1 1 



1 1 1 1 1 00 
0000 100 
1 001 001 
00 1 00000 
01001001 

110 10010 
00 00 1 1 1 
1 11 10010 

101 00010 
10100010 
101 00010 
10100010 
0001 000 

1000101 

1 1 1 1 00 1 
1 1010010 
0000 1111 

00 00 1 1 1 

01000000 

1 11 1000 1 

no Ml 11 

111 10000 
001 10001 

1 11 10001 
1 lOJOUO 
001 10010 
1 10 00000 
1 1010101 
1 1 1 1 00 1 
1 11 0.0 000 
1000 1 II 



* 

STL» 

( 077J STL LOAD THE SECTOR TABLE 

5.45~5.25 + C * 2.50~2.70 (+0.55~0.35 IF C>8, OH 1.50 IF C=0) 

STL (0..C) <- (HL+C 1 HDl STL (15) <- SYS 



LOAD kHTH. OFFSET 

STL (H..H+C} <- (HL+C I HL) 

STL( 15) <- SYSROM 



(022 77 J STLOA 
(111 077) STLOB 
(062 77 J STLOC 
(113 077) STLOD 
(174 77) STLOE 
5.80~5.60 + C * 2.5~2.70 (+0.55~0.3d IF C>8, OR 1.50 IF C=0 ) 

NOTE* DOES NOT CHANGE HL OR C-REGISTERS 

NOTE* IN STLO^C, LOW 4 BITS COUNTER & HIGH 4 BITS OFFSET 1 



STLNRPT 



STLRPTD 



STLZRO 



TSTIP 

BRA 

TSTIT 

BRA 

DOR IP 



RPT 

SHIFT 

SHIFT 

SHIFT 

SHIFT 

DOT I 

BRA 

LDRT 
TSTIP 

BRA 

BRA 

LDRT 

DOTIP 

DOTR 

LDRT 
DOPRP 



LDRP 

DOP 

STB 



,SrtUSER,PSWI 

IVIOL$,FZ 

ND,SWRPT,,,TW 
STLNRPT, TZ 



ONLY IF PRIVED 



ASSUME WILL BE ZERO, NOT REPEATED 
WAS NOT REPEATED 



TEMP2,ND,07,URI+URC REPEATED, GET THE HL (MAR) BIAS AND 



4 

SL 

SL 

SL 

SL 

, OR, 010 

STLRPTD 

TEMP2 
,0I7,URI+URC,TW 

FTCHIA8,TZ 

STLZRO, T#, I Z 

TEMPI 

,ND,0360,IMPI 

, AC, TEMPI ,,C0 
TEMPI 



THE POINTER BIAS AND COUNT FOR THE 
THE POINTER BIAS AND COUNT FOR THE 
THE POINTED BIAS AND COUNT FOR THE 
THE POINTER BIAS AND COUNT FOR THE 
FINAL EIGHT STL LOADS 



REGULAR HL (MAR) NEEDS NO BIAS 
GET THE COUNT OF THE STEPS TO DO 

IF ZERO, WAS NOTHING TO DO. SO, THE END 

DO STANDARD STL 

SAVE AWAY 

IMP STL STARTS STL rtlTH OFFSET 

COMBINE GIVEN OFFSET f^ITH BIAS 

SAVE THE POINTER/COUNTEh AS GENERATED 



MAROL,AC,TEMP2,UfiI+.URL,C0 BIAS TABLE ADDRESS (IF NEEDED) 



TEMP2,URI+URH 

MARCH, IT 
SMR 



SAVE AWAY URH SO CAN BE RESTORED 
GET NEXT (FIRST) TABLE ENTRY 



r 
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720. 
721. 
722. 
723. 
724. 

725. 
726. 



727. 



728. 

729. 
730. 

731. 
732. 



733. 
734. 
735. 
736. 
737. 
738. 
739. 
740. 
741. 
742. 
743. 

744. 
745. 

746. 

747. 
748. 
749. 

750. 
751. 

752. 



PROC14/LIB»DR0.HROC 



000707L OOllOJ 11 1 0000101 
0007 lOL 01 110001 I II 10001 



00071 IL 
0007 12L 
0007 13L 
000714L 
0007 15L 
0007 16L 
0007 17L 
000720L 
00J0721L 
000722L 
000723L 
000724L 
000725L 
000726L 
000727L 
000730L 
00073 IL 
000732L 
0007 33L 



11 010 100 
110101 II 
OOllOJ 11 
01010001 
00 1 J 01 11 
00 11 0001 
01010101 
00 110111 
00 I I 0001 
00 1 1 I 1 1 
00 1 1 000 1 
00 1101 11 
00 110 111 

00 11 0001 

01 110001 
1 1 00 1 
OHO II II 
01 000101 
1 1 1 00 1 



000734L 01000101 
000735L 11010011 
000736L 00 II 0001 
000737L 110100 11 



001101.10 
0.00 11 111 
.1 11 00000 
00 00010 

00000 100 
OOIIOIIO 

1 II 1110 1 
OOOOOIOI 
liOJl 100 
0000100 
1.110010.1 
00001100 

1 00 I 1 1 

1 1 00 1 1 
101 10001 
00001 111 
1 11 10001 

.0 0000 1 I I 

00 110 no 



00001 111 
000 11 I I 1 
00 I I 0000 
00 110 1 11 



000740L 
00074 IL 

000742L 
000743L 
000744L 
000745L 
000.746L 
000747L 
000750L 
00075 IL 
000752L 
>000753L 
>000754L 



11010.100 000 I I 1 II 
1 1 010 1 11 000 11101 



OJ 110001 

00 1 1 I 1 1 

1 OJ 000 1 
00 I I 1 1 1 
00 1 1 1 1 I 
OIOIIOOI 
Ql 110001 
01 000101 
11 0000 II 
OlOJ 1001 

1100 II IJ 



1 1110010 
1 0000101 
l.II 10000 
I II 00000 
OOOOOIOI 
I 11 IIIOI 
111 10001 
00001 111 
II 10010 

1 11 11 III 
.1 1 1 1 1 1 1 1 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE I 

MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
. SECTOR TABLE LOAD 



07AUG82 15»62 



STLAGN 
STLOOP 



LDPT 

LDTR 

MWAIT 

LDPT 
LDP I 

DOPIP 

LDPP 

LDX 
STB 

LDX 
DOHIR 



TSTIT 
BRA 



TSTIT 
BRA 
TSTPT 
BRA 



STLDONE MWAIT 

LDPR 

LDP I 

LDPT 
BPGX 
TSTIR 

BRA 
BRAX 



URO+URH 

TEMPI 

.STLDONE 

MAROH 
MODrt,S^BASD 



IN CASE TABLE CROSSES PAGE BOUNDARY 

GET THE INITIAL VIRTUAL ADDRESS 

RESTORE REGS & SET VECTOR FIRST 

LOAD VIRTUAL ADDRESS FROM TEMP 
DISABLE BASING (AND 1 MS INTEhkUPTS) 



STrt,ND,0375,MDri SET PHYSICAL SECTOR # IN VIRTUAL LOCN. 



MODW.PSWI 

HL2MRH 

IMAR,SMR 



RESTORE BASING (1 MS INT. 1 INST. DELAY 

RESTORE MARK FROM H SAVE AREA 
GET NEXT TABLE ENTRY 



MR2HLH SAVE MARH IN H 

TEMPI, AC, 1 7, TEMP I, CC INC VIRTUAL SECTOR # & DECR COUNT 



t07 

STLOOt^.FZ 



,017 

STLDONE, TZ 
FI,SRVREQ 
STLAGN, TZ 



,$+1 

URO+URH, TEMP2 

MAROH, SYSR0M>8, 

STrt 

RIND 

,01 7, TEMPI 

RIND,TZ 
SRVRPT 



AT SPLIT POINT? 

NO, CONTINUE 

LOOPING JUMP IS DURING MEMOHY READ 

THIS MAKES EXEC FASTER. 

REALLY FINISHED? 

YES, CLEANUP AND END 

NO, ANY S EH VICE TO DO? 

NO, THEN DO SECOND HALF NOW 

REPEATED! WILL DO SERVICE BEFOhE SECOND 

PART BUT DO CLEANUP FIRST 

RESTORE BEFORE MEMPF 

BUT NOTE: MAR MSB WILL BECOME INCORwECT 
RESTORE H-REG 

AND. 0360 !! FORCE LAST ENTRY TO 

ACCESS PROTECT AND WRITE PROTECT 

REALLY FINISHED? 

YES, RESET REPEAT FLAG 

NO, DO IT AS REPEATED INST. 

(BOTH hIND & SriVRPT INDIRECT TO MEMPF) 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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MICHO-PPOCESSOH EMULATION SUPPORT CODE - HJS - 
. SYSTAT INSTRUCTION (157 OP-CODE) 



07AUG82 I5»52 



755. 






• 








756. 


000755L 




SYSTATs 








757. 










( 


157) 


UDOP 


758. 








'. 9.20~9 


.40 






759. 








. 1.30 


(111 


167) 


SYSTATl 


760. 
















761. 








! .1.70 


(062 


157) 


SYSTAT2 


762. 
















763. 








', 1.70 


( 113 


157) 


SYSTAT3 


764. 








. 1.70 


( 174 


157) 


SYSTAT4 


765. 








1.70 


( 115 


157) 


SYSTAr5 


766. 








1.70 


( 176 


157) 


SYSTAT6 


767. 








1.70 


( 117 


157) 


SYSTAT7 


768. 








1.70 


(022 


157) 


SYSTAT8 


769. 
















770. 


000755L 


11001001 


1000 1 11 




BRA 




UDOP»T@,IZ 


771. 


000756L 


00 1 1 1 1 1 


000 1 00 1 




STB 




DIMP 


772. 


000757L 
000,760L 


01010001 
00 1 1 1 1 1 


1 00 1 00 1 

1 00 00010 




LDP I 




URO+URC,PRE 


773. 


00076.1 L 


00 1 1 000 1 


1 J 0. 1 1 1 00 




LDTP 




PSrtI 


774. 


000762L 


1101 100 1 


0001 000 




BRA 




SYSTND.T@,IZ 


775. 


000763L 


OOIIOJ 11 


000 1 00 1 




STB 




DIMP 


776. 


000764L 


00 11 0001 


01010001 




LDTP 




SNID 


777. 


000765L 


110 11001 


00001000 




BRA 




SYSTND, TS, 12 


778. 


000766L 


01010001 


000 00000 




TCLR 






779. 


000767L 


00 HOI 11 


100 00001 SYSTND 


LDPT 




URO+URB 


780. 


>000770L 


OIOIIOOI 


111 11 111 FTCrilAB 


BR AX 




FETCH I 




>000771L 


1 1 00 1 1 11 


1 11 111 11 










781. 






ie 








782. 


>000772L 


1 1 1 00 1 


11 1 1 1 1 1 1 MEMPFO 


BRAX 




MEMPFS 




>000773L 


1 1 00 1 1 1 1 


1 11 11 1 11 










783. 


000774L 


11 IJ 11 1.1 


1 11 11 1 i 1 




TABPAGE 


PROCL 




000775L 


n ]] 111] 


1 11 11 111 












000 776L 


1.1 11 II 11 


1 II 11111 












000777L 


11 11 II 11 


1 11 II 1 II 











UNDEFINED OP-CODE 

PROCESSOR STAIUS WORD 
C<- 0; B <- PSW 
SELECTABLE NODE I.D. 
C<- 0; B <- SNID 
SYSTEM STATUS (UNUSED - 0) 
C <- 0; B <- 

(IF PwE-rtELEASE, C <- PRE-hELEASE CODE) 
(SO CAN TELL PRE-RELEASE LEVEL) 



157 ALONE IS UNDEFINED 

CHECK 1 1 I 

WHATEVER ELSE, C=PRE-RELEASE LE/EL 

( ASSUME 1 ) 

CHECK 062 

rtILL BE 113 - 022 

(FINISHED ALPHA/BETA THAT DID NOTHING) 
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786. 
787. 
788. 
789. 
790. 
791. 
792. 
793. 
794. 
795. 
796. 
797. 
798. 
799. 
800. 
80 I . 
802. 
803. 
804. 
805. 
806. 
80 7. 
808. 
809. 
810. 



811. 
812. 

ai3. 

814. 

815. 
816. 
817. 
818. 
819. 
820. 
821. 
822. 



823. 



824. 
825. 
826. 



PROC14/LIB»DR0.PROC 



OOIOOOL 



OOIOOOL 
00 I 00 I L 
001002L 
00.1 003L 
00.1 004L 
001005L 
001006L 
00 I 007L 
OOIOIOL 
00 1 1 1 L 
001012L 
00 1 1 3L 
001014L 
00 1 0.1 5L 
00 1 1 6L 
001017L 
001020L 

001021L 
00J022L 
001023L 
00.1 024L 
001025L 
001026L 
001027L 
001030L 
001031L 
00J032L 
0010 33L 
00.1034L 



I 100 I 00 I 

I I 00 1 1 1 
00 11 0001 
00 I 1 00.0 1 
00 1101 11 
000101 II 
00 11 0001 
11000100 
It 0101 11 
00 1 1 00 1 

00 1101 11 
.10.1 11 
I 0001 
10110 
101 11 

01010001 

1 1 00 1 1 1 1 



00 
00 
00 
,00 



00 1 1 000 1 
00 I I 000 1 
00 1 1 1 I 1 
00 110001 
00010110 
00 1.1 0.1 11 
00 I 1 000 1 

00 no 110 

00 11 0001 
Olio II II 
11 000100 
11 010 J 11 



1 1101 no 

11010 1.10 
1 1000100 
I 11 000 1 1 
01 000 I 1 1 

ion 00 10 

1 1010110 
1 1 1 1 1 000 

0001001 

001 10 no 

1 1000000 
1 00 00000 
1 1010101 
1 11 00000 
010001 11 

00 00000 

1 1 1 00 1 1 

11000 110 
II 100101 
010001 11 
1 00 1 0000 

on 10010 
I 0000 no 

lOlKOOOO 
10000101 
1 1010000 
1.1 1 10001 
1 1 1 00 1 00 
0001001 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
. BLOCK TRANSFER AND CONVERT 



( 

( 



07AUG82 15»52 



* 

BT: 



( 021) BT BLOCK TRANSFER 

-0.30 + N * 5.55 - N * 0.15 / ODDSTEP + 0.10 rtHEN TCFZ / STEP - 0.50 IF MATCH 

(DE) <- T <- A + (HL) 
DE <- DE + 1 » HL <- HL + I 
STOf IF T = -B; C <- C - II UNTIL = 

(111 021) BTR BLOCK TrtANSFER REVERSE 

-0.30 + N * 5.75 - N * 0.15 / ODDSTEP + 0.10 i^HEN TCFZ / STEP - 0.50 IF MATCH 

(06) <- T <- A + (riL) 
DE <- DE - I ; HL <- HL - I 
STOP IF T = -B; C <- C - l; UNTIL = 

(062 021) 8CV BLOCK CONVERT 

-0.3JO + N * 7.35 - N * 0.15 / ODDSTEP + 0.10 WHEN TCFZ / STEP - 0.50 IF MATCH 

(DE) <- T <- A <- (HL + (DE)) 
DE <- DE + I 
STOP IF T = -B; C <- C - I; UNTIL = 

NOTE* NONE OF THESE CHANGE THE CONDITION FLAGS 

BT (021 ) 

BTR (111 021) 

BCV (062 021 ) 



ADD DATA AT DE TO TABLE POINTER IN HL 



BTX 



BRA 
BRA 
DLDX 


BTX,Ta,IZ 
BTR, To?, 10 


CCLR 
LDTP 
MWAIT 


URI+URL 
.MEMPFI 


DOPP 


MAROL.AC.MD 


LDPT 

LDTP 

DOP 

STB 

TCLR 

BRA 


URO+URA 
UHI+URH 
MARCH, IT 
SMR 

BTCVT 


DLDX 


HL2MR,,SMR 


DADDP 


URO+UR,MARI 



A <- MAR <- L + (DE) 

STORE IN A SO CAN FIND STOF POIMT 
ADD IN CARrtY ALSO 

INDIRECT THROUGH THIS FOR TABLE ENTrtY 
NO A-REG OFFSETS 



GET DATA AT HL TO BE MOVED 



INCREMENT HL FOR BT 



BTCVT 



LDTP 


Uril+URA 


LDRT 


TEMP 1 


MrtAIT 


,MEMPF1 



SAVE THE A-REG OFFSET (ZERO FOR BCV) 
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827. 
828. 



829. 
830. 



831. 
832. 
833. 



834. 
835. 



836. 
837. 
838. 
839. 



840. 
841. 



842. 
843. 
844. 
845. 

846. 
847. 
848. 
849. 
850. 



PROC14/LIB«DR0.PHOC 



001035L 
00 I 036L 
00 1 037L 
001040L 
OOI04iL 
001042L 
001043L 
00I044L 
00 I 045L 
001046L 
OOJ 047L 
001050L 

00105iL 
00.1 052L 
001053L 
001054L 
001055L 
00.1 056L 
001057L 
00.1 060L 
001061L 
00J062L 
00 1 063L 
001064L 
001065L 
001066L 
001067L 
00J070L 
00I071L 
001072L 
00.1 073L 
001074L 
001075L 
001076L 
00 J 77L 
00 I 1 OOL 
00 1 1 1 L 
00 1 1 02L 



00 1 1 03L 
00 1.1 04L 
00 1105L 
00 1106L 



00 1 1 OOD 1 
00 110001 
00 11 0001 
0111 00 1 
00 1101 11 

0110 1111 
00 11 0001 
000101 10 
00 110.1 11 
00 1 1 000 I 
00 1 1 1 1 
1 1 00 I 1 1 1 

00 11 0001 
00 110001 
00 1 1 1 1 1 
000 1 0.1 1 1 
00 11 0001 
010.10100 
00 1 1 1 1 1 
00 llOOOJ 

oioiai 00 

OOUOl 11 
00 1 1 0001 
Olio 11 II 
II 000100 
IIOIOJ 11 
00 1 1 000 1 
00 110001 
00 11 0001 

0111 00.1 
00 1101 II 
0110 11 11 
00 1 I OOD 1 
01010100 
OOIIOJ II 
-00 I 1 000 I 
0101 0.1 00 
00.1101 11 



00 II 000 1 
OJ 1 1 00 1 
II 000000 
11 0000 I 1 



I 1000 100 
Ml 000 I I 

00 110 no 

001 10001 
00100001 
1 II 10001 

100 10000 
OIIIOOIO 
10000 100 

101 I 0000 

1 00000 1 I 
101 II 100 

I lODOIlO 
1.11 0010.1 
0,1000 1 II 
101 10010 
10010000 

0000001 

1 0000 110 

101 10000 

000 00 000 
1000010.1 
1 1010000 

-I 11 10001 

1 1001010 

0001001 

1 I 000 I 00 
I 1 1 000 I I 

00 1 10 no 

001 10001 

001 00001 

101 10001 
I 00 I 000 
00000001 
1 0000 100 
10110000 

000 00000 

1 00 00011 



11010001 
000 00001 
lOIIOl II 
II 10010 



00 1107L OOOIOI 11 101 10010 



DATAPOINT CONFIDENTIAL INFORMATION - SEE HAGE I 

MICHO-PHOCESSOR EMULATION SUPPORT CODE - HJS - 
. BLOCK TRANSFER AND CONVEHT 



07AUG82 15*52 



BTR 



DLDX 
DOPRP 



LDRT 
DADDp 



LDRP 
MWAIT 
DLDX 
DOPRP 



LDRT 
DDECP 



DE2MR POINT TO WHERE TO STORE RESULT 

MDW,AC.TE.MP1,MDR,C0 STORE DATA IN (.DE) AND IN TEMPI 



TEMPI 
URO+UDE,MARI 



INCREMENT DE FOR BT & BOV 



BRA 


BTEND 


DLDX 


riL2MR,,SMR 


CCLH 




DDECP 


URO+UH,MARI 



GET DATA AT HL TO BE MOVED 



DECREMENT riL FOR BTm 



TEMPI ,URI+URA LOAD UP THE A-REG OFFSET 

,MEMPF1 

0E2IAH 

MD»-v,AC.TEMPI,MDR,CO GET RESULTANT DATA 



TEMPI ,,CC 
URO+UDE,MARI 



STORE DATA IN (DE) 
BACKUP DE FOR BTrt 



. BT - 3.50, BTR 
BTEND TSTRP 



3.70, BCV - 5.30~5.5U 
AC,TEMP1,URI+UHB,C0 AT THE ENDPOINT? 



BRA 


hIN256,FC 


BRA 


RIND,TZ 


BRA 


RIN256 



CCLR 



NO, rtANT CARRY TRUE & ZERO TRUE 

YES, END NOW! 

NO! 

NO, REPEAT 256 TIMES (Oh LESS) 

ONLY CARRY SET RIN256 CASE 



C 

( 

(■ 

( 

( 

( 

( 

( 

( 

( 

( 

( 

{ 

( 

( 

( 

( 

( 

( 

( 

( 



( 
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) PftOCI4/LIBtDR0.PROC 


853. 








854. 


00 1 IJOL 






855. 








856. 








857. 








858. 








859. 








860. 








86 1 . 


00 1 1 lOL 


00 11 0001 


1 lOlOOJO 




00 1 i IIL 


1 1 0,1 00 


000 00001 




00 1 1 1 2L 


00 1 J 0.1 1.1 


10000010 


862. 


00 111 3L 


1 1 OOOO.J I 


on 10010 


863. 


00 1 1 J 4L 


01 0001 01 


00 0000 1 


864. 


00ni5L 


1.1 000010 


10101 1 11 


865. 








866. 








867. 


00 M I 6L 






868. 








869. 








870. 








87 1 . 








872. 








873. 


ooni6L 


00 11 0001 


00110000 


874. 


00 11,17L 


11 0.00010 


101010 11 


875. 


00 1120L 


11 000100 


10101 1 11 




00 1 1 2 1 L 


110101 II 


000 1 00 1 


876. 


00 1 1 22L 


00 111 001 


00110100 




00 1123L 


10.10 11 11 


00 1 1 00 1 1 


877. 








878. 


>00 1124L 


010 11001 


1.11 11 1 11 




>00 1125L 


1 1 00 1 1 1 1 


1 11 11 Ml 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 07AUG82 15*52 

. REPEATED INSTRUCTIONS, hEPEAT CONTROL SECTION 

• 

RIN256I 

. ODD - 1.45, RPT - 1.60, SRV - 1.35, END - 1.30 

WARNING, CARRY MUST BE CLEAR ON ENTRY 

BLOCK REPEATED INSTRUCTIONS (THOSE THAT COUNT C THhOUGH 256 MAX STEPS 

DOES NOT CHANGE FLAGS 



DOPIP 



URO+.URC,SB, i,URI + URC IF ZERO, FINISHED 



BRA 


RIND,TZ 


TSTIT 


, 1 


BRA 


RINDO,FZ 



DO THEM IN PAIRS SO CAN'T INTERRUPT 

DURING DOUBLE BYTE MOVE 

•CAN USE BT IN DISPLAY POINTErt MOVES! 



* 

RINST* 

. SRV - 0.65, RPT - 0.90 



RINDO 



RINRPT 



LOOP THROUGH REPEATED INSTRUCTIONS, SET THE REPEAT MODE AND DO 
SERVICE REQUEST IF NEEDED ELSE RE-EXECUTE THE INSTRUCTION. 



TSTPT 

BRA 

mkll 

BRPX 



BRAX 



FI.SRVHEQ 
RINRPT, FZ 
,MEMPF1 

IDCOD 



SRVRPT 



DO SERVICE IF NEEDED 



GO 00 OPCODE AGAIN 



YES, DO II! 
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881. 
882. 
883. 
884. 
886. 
886. 
887. 
888. 
889. 
890. 
891. 
892. 
893. 
894. 
895. 
896. 
897. 
898. 
899. 



900. 



901. 
902. 

903. 

904. 



905. 
906. 

907. 

908. 
909. 



PROCI4/LIB«DR0.PHOC 



00 1 1 26L 



00 1126L 
00 1I27L 
00 1130L 
001131L 
00 1132L 
00 1 1 33L 
00 1 1 34L 
00 11 35 L 
00 1 1 36L 
00 1 1 37L 
00 1 1 40L 
00 11 41 L 
00 1 1 42L 
00 1 1 43L 
00 1 1 44L 
00 1 1 45L 



00 1 
00 1 
00 1 
00 1 
00 1 



46L 
47L 
50L 
51L 
52L 



001153L 
00 1 1 54L 
00 1 1 55L 
00 1156L 
001157L 
00 n60L 
001161L 



1 1 00.1 000 
00 110001 
00 110001 
00 1 1 1 1 1 
00 110001 
00010110 
00 1 1 1 1 1 
.00 1 1 000 1 
00 1 1 1 1 
11 000100 
110101 11 
00 11 0001 
110 1111 
00 110001 
00 110001 
00 1 1 1 1 1 
00 110001 
000101 10 
OOlJOl 11 
00 11 0001 

00 11 01 10 

01 110001 
11000100 
110101 11 
00 110100 

00 1101 11 
IJ 0,000 11 

1 1 00 1 1 1 1 



1 OOOllOJ 
1 1000 100 
1.11000 1 1 
010001 1 1 
I 00 I 0000 
0, 1 1 1 00 1 
1 0000 100 
.10110000 
1 00000 1 1 
101 00000 
00001001 
00110 110 
1 11 10001 
I 1000 110 
I 1100101 

01000 111 
100 10000 

1 1 1 00 1 

I 0000 no 

10110000 

1 0000101 
101 10001 
10010011 

00001 001 
00110 1.10 
-0 0000 110 
1 1 1 0. 1 1 1 
0.11 10010 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
. .BLOCK COMPAkE 



07AUG82 I5»52 



* 

BCP« 

( 041 ) 

-0.30 + N * 5.45 



(111 04 1) 
-0.30 + C * 7.45 



(062 041 ) 
-0.30 + C * 7.65 



BCP BLOCK COMPAhE 

• 0.15 * N / ODDSTER - 0.5 IF MATCH 

(HL) - iDE)i HL <- riL + II 0£ <- DE + 1 
STOP IF TZ» C <- C - I; CONTINUE UNTIL = 



DFAC 



DFSB 



BRA DFOP,F@,IZ 

DLDX DE2MR,,SMR 



DADDP URO+UDE,MARI 

MrtAIT ,MEMPF1 

LDHP TEMPUMDR 

DLDX HL2MR,,SMR 



DADDP 



LDTR 
MWAIT 

DOPP 

BRA 
BRA 



URO+UR.MARI 



DECIMAL FIELD ADD 

(.Dc) <- B .OR. (DE) .DAD. (HL) + CRY 

DE <- DE - I ; HL <- HL - 1 

C <- C - l; UNTIL = (16) 

DECIMAL FIELD SUBTRACT 

(DE) <- B .OR. (DE) .DSB. (HL) - CRY 

DE <- DE - It HL <- HL - 1 

C <- C - l; UNTIL = (16) 

GO TO DECIMAL STUFF 



GET DATA AND UPDATE DE 



GET DATA AND UPDATE HL 



TEMPUCC 
.MEMPFl 

LUF.SB.MDR 

RIN256, TZ 
RIND 



GET Dt DATA 



SUBTRACT HL DATA AND SET COMPARE FLAGS 

CONTINUE IF A MATCH (CARRY ZERO TOO!) 
END IF DATA DIFFERS 



DATAPOINT CONFIDENTIAL INHOHMATION - SEE PAGE 1 
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PROC14/LIB»DRO.PHOC 


MICHO-PHOCESSOH 


EMULATION SUPPOwT 










. DECIMAL FIELD 


OPERATIONS 


912. 








* 








913. 


00 11 62L 






DFOP 








914. 










(111 041) 


DFAC 


915. 








. -0.30 


+ C * 7, 


45 




916. 
















917. 
















918. 
















919. 










(062 041) 


DFSB 


920. 








! -0.30 


+ C * 7. 


65 




921. 
















922. 
















923. 
















924. 


00 1 1 62L 
00n63L 


01010001 
OIlOll 11 


0000 1 1 1 1 
1 1110010 




LDRI 




TEMP2,0 17 


925. 


00 1 I 64L 


01010001 


KOOOOOOO 




BAL 




, DFADD 


926. 


00 1165L 


11 0010] 1 


1 1 00 1 1 




BRA 




BFOP,Ta(,IO 


92 7. 


00 1 1 66L 


01 01 000 i 


.10000 I 1 1 




BAL 




, DFSUB 


928. 


00 1 1 67L 


1 1 00 1 1 1 1 


1 1 00 1 1 




BRA 




BFOP 


929. 
















930. 


00 1170L 






DFSUB 








931. 


00 1170L 
001171L 


01 110100 
00 1101 11 


1 II 1000 1 
0000 110 




DOPR 




LUF» SB, TEMPI 


932. 


00 1 1 72L 


11 000000 


1 00000 1 1 




BRA 




DFSEND, FC 


933. 


00 1 1 73L 


0101 0010 


0001 001 




DOT I 




, AC, 10-1 


934. 


00 1 1 74L 
00 1175L 


00 1 1 00 1 1 
00 1 1 1 1 1 


11010001 
001 0000 1 


DFSEND 


DOPP 




MDrt,OR,URI+URB 


935. 


00 1 1 76L 


1 1 00 1 1 1 1 


1 1 1 1 000 




BRA 




hIN16 


936. 
















937. 


00 1 1 77L 






DFADD 








938. 


00 1 1 77L 
J001200L 


01 1 1 00 1 
01101111 


1 11 10001 
1 11 10001 




DORR 




TEMP I.AC, TEMPI 


939. 


001201L 
001202L 


1 1 00 1 
OOllOJ 11 


1 mono 

000.00 110 




DOPI 




LUF,AC,-10 


940. 


001203L 


11 00000 I 


11 110.10 




BRA 




DFAEND, TC 


941. 


00 1 204L 


0111 OOO 1 


1 11 10001 




LDTR 




TEMPI 


942. 


001205L 
001206L 


00 I 1 00 1 1 
00 1 1X1] 11 


110 10001 
001 00001 


DFAEND 


DOPP 




MDW,OR,URI+URB 



7AUG82 



15»52 



943. 



BRA 



RIN16 



DECIMAL FIELD ADD 

(Dh) <- 8 .OR. (DE) .DAD. (HL) + CRY 

DE <- DE - I ; HL <- HL - 1 

C <- C - l; UNTIL =0 (16) 

DECIMAL FIELD SUBTRACT 

(DE) <- B .OR. (DE> .DSB. (HL) - CRY 

DE <- DE - U HL <- HL - 1 

C <- C - l; UNTIL =0 (16) 

SELECT 4 BITS, NOT ALL OF THEM 

(ASSUME THIS) 

WAS ODD THEkEFORE nhS DECIMAL ADD 

rtAS EVEN SO IT WAS DECIMAL SUBTRACT 



SET FLAGS ON SUBTRACT 

NO CARRY, NO PROBLEMS 

CARRY, CORRECT THE VALUE (ADDS 101) 

SET THE ZONE BITS 



ADD TOGETHER (CARRY FALSE ON RESULT) 

SET FLAGS & CORRECT IF OVERFLOW 

IF OVERFLOWED, CORRECTED NOW 
NO CARRY, GET CORRECT VALUE 
SET THE ZONE BITS 



( 

( 
( 

r 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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946. 
947. 
948. 
949. 
950. 
951. 
952. 
953. 



954. 
955. 
956. 
957. 
958. 
959. 
960. 



PROC14/LIB«DR0.PriOC 



961. 



00I207L 



001207L 
00 J 2.1 OL 
00 I 2 1 1 L 
00 J 2.1 2L 
00 1 2.1 3L 
0012 14L 

0012I5L 



0001 01 11 
00 1 1.0001 
010101 00 

00 1.101 11 

01 000101 
11 000010 



10110010 
I 10 100 10 

000 00001 

1 0000010 
OOOOI 111 
101 10001 



00 12 1 5L 00 1 1 oao 1 

001216L 01010101 

00 1.2 17L 00 110.1 I J 

>001220L 010 1 1001 

>001221L 1100111.1 



1 10.1 I 100 
I 10 11 1 11 
J 000 1 100 
11111111 
1 11.11 1 II 



MTCRO-PPOCESSOP EMULATION SUPPORT CODE - HJS - 07AUG82 15»52 

. REPEATED INSTRUCTIONS, REPEAT CONTROL SECTION 

* 

RIN16* 

. RPT - 1.70, SRV - 1.45, END - 1.40 

FIELD REPEATED INSTRUCTIONS ARE THOSE THAT COUNT C THROUGH lo MAX STEP 

CCLR 

DOPIP UR0+URC,S8, 1,URI+URC COUNTDOWN 



TSTIT 
BRA 



RIND» 
.0.70 



,017 
RINST,FZ 



AT THE END (BASE 16)? 
NOT YET 



REPEATED INSTRUCTION END 
DOPIP PS^V0,ND,-1-S^VRPT,PSWI 



BRAX 



FETCHW 
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964. 
965. 
966. 
967. 
968. 
969. 
970. 
97 1 . 

972. 

973. 
974. 
975. 
976. 
977. 
978. 
979. 
980. 

981. 
982. 
983. 
984. 
985. 
986. 
987. 



PROC14/LIB«DR0.PROC 



988. 



989. 
990. 

991 . 
992. 

993. 



994. 
995. 



00 1 222L 



001222L 
00.1 223L 
00 1 22 4L 
001225L 

001226L 



010 10001 
Olio 11 11 
01010001 

1 1 00 I 1.1 1 



.1.11 II 1 11 
.1 11.10010 
D.IOOOOI I 
0.1 1 00 1 1 



001226L 
00.1 22 7L 
00 1 230L 

00I231L 



00I23IL 
001 232 L 
00.1 2 33L 
001234L 
001235L 
00.1 236L 
001237L 
001240L 
00124IL 
001242L 
00-1 243L 
001244L 
00.1245L 
00 1 246L 
00J247L 
00I250L 
001 25.1 L 
001252L 
001253L 
00I254L 
001255L 
001256L 
00.1 25 7L 
001260L 

00.1 261 L 
00J.262L 



01010001 
Olio II IJ 
0101 0001 



I 11 11 1 II 
J 11 10010 
01000111 



Olio 11 1.1 
00 11 0001 
00 I 1 0001 



001 
00 I 
010 
00 1 
00 1 
010 
00 1 



101 11 
I 000 1 
I 01 00 
101 II 
1 000 1 
10100 
101 II 



1 1.10001 

1 1 0001 00 
1101 0.1 1 1 
00 11010.1 
0110 11 II 
00 11 0001 
00 1.10001 
00 1 1 1 I 1 
00.1 I 000 J 
01010100 



00 1 1 

00 r 

01 Oi 
00 1 



01 II 
0001 
0100 
0111 



.101 10000 
1.1000 1 10 
I 11 00 10 J 
010001 II 
100 10000 

000 00001 

1 0000 110 
1 01 10000 

00 00000 

1 0000101 
J II 10010 

010 1 1 on 

000 I 00 J 
00110 110 
101 10001 

1 1000100 

1 n 000 1 1 

01 000 I II 
100 10000 
000 00001 
10000100 
10110000 

00 00 000 

1 00 0001 1 



00 110001 
00 II 00 10 



001 
001 



010 
010 
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MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
. BINARY FIELD OPERATIONS 
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* 

BFSB * 

( 031) BFSB 
. -0.30 + C * 6.90 



LDRI TEMP2,0377 

BRC BFOP,,BFSUB 

* 
BFAC i 

( Oil) BFAC 

. -0.30 + C • 6.70 



BINARY FIELD SUBTRACT 
(DE) <- (.DE) - (HL) - CRY 
DE <- OE - 1 ; HL <- HL - I 
C <- C - l; UNTIL =0 (16) 

SELECT ALL THE BITS 



* 

BFOP 
. 4. I 



LDHI 
BAL 



BAS 
DLDX 



DDECP 



LDTR 
MWAIT 

DORP 

DLDX 

DDECP 



TEMP2,0377 



LINK.CC 
HL2MR..SMR 



URO+UR,MARI 



BINARY FIELD ADD 
(.DE) <- (DE) + (HL) + CHY 
DE <- DE - 1 ; HL <- HL - I 
C <- C - l; UNTIL =0 (16) 

SELECT ALL THE BITS 



BINARY FIELD OPERATIONS (ARG GETTER) 



GET (HL) DATA AND UPDATE HL 



TEMP2 
,MEMPF1 

TEMPI .ND,MDR,,CC PUT IT IN TEMPI 

DE2MR,,SMR 



URO+UDE.MARI 



GET (DE) DATA AND UPDATE DE 



CARRY IGNORED. BITS 2 &6 NOT BOTH HIGH 
DOTPP .AC.UCFLG.UCFLG SET THE CARRY 



( 

( 

( 
( 
( 
( 
( 
( 
< 
( 
( 
( 

( 
t 
( 
( 
( 
( 
( 
( 
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996. 
997. 

998. 

999. 
1000. 
100). 

J 002. 
1 003. 
1 004. 
.1005. 

1006. 
I 007. 
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001263L 01 110001 1 11,10010 

001264L 11000100 DIOOIOII 

001265L 110101 M 0001 001 

00)266L 00 1 ID 10.1 00 110 110 

001267L n 10 11 11 000 00 000 



00J270L 01 110010 

00 12 7-1 L OOl.iai 11 

00I272L 00 1101 II 

001273L noon 11 



00J274L 
001275L 
001276L 
001277L 



OJ 110100 
00 11 1 11 

00 n J 11 

11 0011 11 



I 11 I 000 I 
00)0000 1 

0000 110 

on jiooo 

1 1) 1000) 
00) 00001 

00000 no 

11 11 000 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
. BINARY FIELD OPERATIONS 



LDTR rEMP2 

MWAIT .MEMPFl 

DOTP ,ND,MDR 

BRti LINK 

DO PR MDW. AC. TEMPI 

LDPT LUF 

BRA RIN16 

DOPR MDW, SB, TEMPI 

LDPT LUF 

BRA RIN16 
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BFADD 



BFSUB 



SELECT ADD & SUBTRACT, BINARY & DECIMAL 
iDE) <- (DE) + (HL) 



(DE) <- .(DE) - (HL) 



DATAHOINT CONFIDENTIAL INFORMATION - SEE FACE 1 



FACE 4 



.10.10. 
1011. 
1012. 
1013. 
1014. 
1015. 
J 01 6. 
1017. 
.1018. 
1019. 
1020. 
1021. 
1022. 



,1023. 
.1024. 
1025. 
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MICRO-FROCESSOR EMULATION SUPFORT CODE - HJS - 
. BINARY FIELD SHIFTS LEFT AND RIGHT 
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1026. 
1027. 
1028. 
1029. 

1030. 
1031. 
1032. 
1033. 
.1034. 
1035. 

1036. 
-1037. 

1038. 
.1039. 



J 04.0. 
1041. 
1042. 



.1043. 
1044. 



001300L 



001300L 
00 1 30J L 
00J302L 
001303L 

001304L 
001305L 
001306L 
001307L 
001310L 

00 1 3 1 1 L 
001312L 
00 1 3 1 3L 
001314L 

00 1 3 1 5L 
001316L 
00 1 3 1 7L 
001320L 
00 1 32-1 L 
001322L 
001323L 
001324L 
001325L 

001326L 
001327L 
00.1 330L 
00 1 331 L 
00i332L 
00 1 333L 
00 1 334L 
001 335 L 
00.1 336L 
001337L 
001 340 L 
001 341 L 
00.J 342L 
00 1 343L 
001344L 
001 345 L 



00 11 0001 
00 1 1 0001 
00 1 1 1 1 1 
11 001001 

00 1 1 0001 
000101 10 
00 1 1 1 1 1 
00 1 1 000.1 
00 1 1 1 1 
00 1 1 000 1 
000101 11 
00010,1 11 
11 000100 
1 1 1 OJ I I 

00 110001 

000 1 0.1 1 1 
00110111 
OOOIOJ 11 
01101111 
oil 100.10 

00 1 1 1 I 1 

1 1 00 1 1 1 1 

00010.1 11 
00 11 0001 
0,1010100 
00 1 1 1 1 1 
00 1.1 000.1 
01010100 
OOllOJ 11 
00 110001 
00 1 1 00 1 
11 000100 
11010.1 11 
00 I 1 000 1 
00 1 1 00 1 
00 1101 11 
00 1.101 11 
1 1 00 1 1 1 1 



1 1000 1.10 
1 1 1 00 1 1 
01000 I 11 
00101 001 

1 00 1 000 
11 10010 
1 0000 110 
101 10000 
1 00 00 1 1 
00110.10.1 
101 00010 
101 10010 
00110011 

000 1 00 1 
00 1 1 1 1 

1 00 1 00 1 
001 00001 
10010010 
1 11 10001 
001 10001 
00000 1 11 
II II 000 

10.1 10010 
100 10000 

00 00001 

1 0000 110 
101 10000 

00000 000 
.1 000010.1 
001 10101 
00110.10.1 

001 00000 

000 1 00 1 

00 1 10 no 

00110 1.10 

001 00001 
00000 1 II 
1 1 1 1 000 



BFS: 

( 075) BFSL 

. -0.30 + C * 4.55 



(III 075i BFSR 
. -0.30 + C * 4.55 



BINARY FIELD SHIFT LEFT 

(HL) <- (HL) + (riL) + CRY; HL <- HL - 1 

C <- C - I; UNTIL = (16) 

BINARY FIELD SHIFT RIGHT 

(HL) <- SHFTRGHT (HL); HL <- HL + 1 

C <- C - l; UNTIL =0 ( 16> 



. BFSR 



BFSL 



NOTE* ONLY CHANGES THE CARRY FLAG 
DLDX HL2MR,,SMR GET DATA TO SHIFT & SELECT R/L ROUTINE 



BRA 
DA DDF 



BFSL,T^,IZ 
URO+UR.MARI 



UFDATE HL 



LDTF 


UCFLG 


SHIFT 


SL 


CCLR 




M^AIT 


,M£MPF1 


LDTP 


MDR 


SHIFT 


SR 


LDPT 


imn 


SHIFT 


SR 


LDRT 


TEMPI 


DOPR 


LUCF,AC,TEM 


BRA 


RINI6 


CCLR 




DDECP 


URO+UR,MARI 



PUT THE CARHY IN THE LSB (BIT 0> 
AND INTO IHE LINK 



GET THE DATA 
DO EXTENDED SHIFT 
OUTPUT SHIFTED DATA 
PUT LINK IN THE MSB 



LUCF,AC,TEMPi ,,C0 SET THE CARRY FROM THE MSB (LINK) 



UPDATE HL 

CARhY IN STOPPED IN BIT 2 OH 6 OF UCFLG 



DOTPP , AC, UCFLG, UCFLG SET CARRY FkOM USER CARRY 

MrtAIT .MEMPFl 

DOPPP MDrt, AC, MDR, MDk SHIFT LEFTi 



LDPT 
BRA 



LUCF 
RIN16 



SET CARRY ON RESULT 
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1047. 
1048. 
1049. 
1050. 
1051. 
105,2. 
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MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
. SHIFT OPERATIONS 
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.1053. 

.1054. 
1055. 

1056. 

1057. 

1058. 

1059. 

1060. 

1 06 1 . 
.1062. 
.1063. 

1064. 

1065. 

1066. 

1 067. 

1068. 

.1069. 

1070. 

1071. 

1072. 

.J 073. 

10 74. 

1075. 

1076. 

.1077. 

1078. 

.1079. 

1080. 

1081. 

1082. 



00 1 346L 



00 1 346L 
001347L 
001350L 
00 1 35 1 L 
00 J 352 L 
>001353L 
>00J354L 

001355L 



001355L 
001356L 
001357L 
001360L 
001361L 
001362L 
001363L 
>00]364L 
>001365L 

001366L 



00 1 366L 
00 1 367L 
00.1370L 
001371L 
00.1 372L 
00 1 373L 
00 1374L 
00 1 375L 
00J3.76L 
001377L 
>00 1400L 
>001401L 



00 
01, 
OJ 
00 



10001 
01111 
10010 
101 11 



00 1 1 1 1 

0101 1001 

1100 11 11 



00.110001 
000101 11 
00010.1 11 

00 1 1 1 1 1 
Olio II II 

01 110010 

00 NOl II 

1 1 1 00 I 
1 1 00 1 1 1 1 



00 11000 1 
000101 11 
000101 11 
00 110001 
00010.1 11 

00 1 1 1 1 1 

000 1 0.1 1 1 
0110 11 
1 1 1 00 
00 1 1 1 1 1 

010 11 00 1 

1 1 00 1 1 1 1 



11 

10 



110 1111 
I 11 1000 
001 1000 

0000 1 1 

1 000 1 1 I 

1 11 1] 1 1 
i 1 1 1.1 1 1 



NO 11 I II 
10110010 
I 00 I 00 1 
I 0001 1 1 
1 II 1000 
001 1000 
0000 I I 

1 11 II 1 1 
1 II 11.1 1 



OOUOIOJ 
101 00010 
101 10010 

noil 111 

1 00 1 00 1 
1 0001 111 
1 00 1 00 1 
1 II 10001 
00 1 10001 
0000 1 II 

1 11 11 111 
1 II 11 111 



• 

SLC» 
. 0.95 
. 0.95 



• 

SRC» 
.1.15 
. I . 15 



* 

SRE« 
. 1 .50 
. 1.50 



( 002) 

(IMP 002) 

LDRP 

DOPR 

DOP 
BRAX 



( 012) 

( IMP 012) 

LDTP 

CCLR 

SHIFT 

LDPT 

LDRT 

DOPR 

BRAX 



( 032) 

(IMP 032) 

LDTP 

SHIFT 

CCLR 

LDTP 

SHIFT 

LDPT 

SHIFT 

LDRT 

DOPR 

BRAX 



SLC 

SLCR 



SHIFT LEFT CIRCULAk 
RN <- R(N-1 ); CRY <- 



RO <- R7 
TEMPI, IMPI 
LUCF»AC,TEMP1 ..CO ADD TOGETHER AND SET USER CARRY 



IMPO,IT 
FETCH I 



SRC 
SRCR 



PUT CARRY IN THE LSB 

DON'T USE IMPFO, rtILL GET BAD CARRY 



SHIFT HIGHT CIRCULAR 

CRY <- R7 <- RG; R(N-l) <- RN 



IMPI 



SET THE LINK BIT ON LSB 
RIGHT CIRCULAR 
STOrtE RESULT 



SR 

IMPO 

TEMPI 

LUCF, AC. TEMPI ,,C0 SET CARRY ON THE MSBIT 

FETCH I 



SRE 
SRER 

UCFLG 
SL 



SHIFT RIGHT EXTENDED 

R7 <- CRY; R(N-I) <- RN; CRY <- RO 

GET CARRY 

IN LSBIT 

AND INTO LINK 



IMPI 

SR 

IMPO 

SR 

TEMPI 

LUCF,AC.TEMP1 .,C0 SET CARRY ON LINK 

FETCH I 



DO RIGHT EXTEND 
PUT LINK IN MSBIT 



( 
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1083. 








1034. 








J 085. 








1086. 


001402L 






1087. 








1088. 








-1089. 








1090. 


001402L 


00 1 10001 


00110101 




00 1403L 


010,10101 


1 1 0.000 i 1 




001404L 


00 1 1 1 n 


1 0001 1 11 


,1091. 


>00 1405L 


010 11001 


1 11 11 1 11 




>001406L 


1 1 00 1 1 1 1 


1 11 11 1 11 



MICRO-PROCESSOK EMULATION SUPPOi^T CODE - HJS - 
. SHIFT OPERATIONS 



TABPAGE PRODL 

cess 

.0.70 ( 042) CCS 

. 0.70 (IMP 042) CCSr 



07AUG82 15«52 



CONDITION CODE SAVE 

R <- (CRY)(SGN)0000(-'ZhO.SGN)(~ZRN.PTY) 



DOPIP IMPOUND, 0303, UCFLG 



BRAX 



FETCH I 
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MICRO-PROCESSOR EMULATION SUPPORT 










. SINGLE 


AND DOUBLE PAGED LOAD AN 


1094. 








• 








1095. 


00 1407L 






PLR* 








1096. 








. 3.90 




1R4) 


PLR.IDX 


1097. 












105J 


PLR.IDX 


1098. 












114) 


PLR.IDX 


10 99. 












124) 


PLR.IDX 


1100. 












134) 


PLR.IDX 


1101. 












144) 


PLR.IDX 


1102. 












154) 


PLR.IDX 


1 103. 












164) 


PLR.IDX 


1104. 
















1 105. 








. 5.50 


(111 


124) 


DPL.IDX 


1 106. 










(062 


114) 


DPLR.IDX 


1 107. 










( 113 


144) 


DPL.IDX 


1 108. 










( 174 


134) 


DPLR.IDX 


1.109. 










( 115 


164) 


DPL.IDX 


1 110. 










( 176 


154) 


DPLR.IDX 


1 111. 
















1 112. 


001407L 
00.1 4 lOL 


00 1101 11 
00 1 1 1 1 1 


000 1100 
010001 11 




STB 




IMAR,SMR 


1113. 


00141 IL 
00J412L 


00 11 0001 
00 110001 


1 0001 001 
10101000 




DLDX 




MR2PC 


1 114. 


001413L 


11010100 


1 1110100 




MrtAIT 


,MEMPF1 




00 1 4 1 4L 


11010111 


00001001 










I 115. 


0014I5L 
001416L 


00 11 0001 
00 1101 11 


00 110 110 

1 10 00000 




LDPP 




MAROL.MDR 


1116. 


001417L 
001420L 


00 110001 
00 1 1 1 11 


1 1 1 00 1 1 1 
1000 1 11 




LDX 




XX2MRri+UriX,SMK 


1 117. 


00 1 42 1 L 


1 1 00 1 1 1 


11111111 




MWAIT 


N00P,MEMPF1 




001422L 


1 1 1 1 00 


1 11011 0.1 












001423L 


110101 11 


0001 001 










1 118. 


00 1424L 
001425L 


00 11 000 J 
00110111 


00 110 no 

1 0001 101 




LDPP 




1350. MDR 


1119. 


00 1 426L 


110 1 1001 


J 11 00001 




BRA 




FETPL, TS.IZ 


1 120. 


001427L 
001430L 


00 1101 11 
00 1 1 1 1 1 


0000 1100 
10001 1 1 




STB 




IMAR»SMR 


1121. 


001431L 


1 1 00 1 M 


11111111 




MWAIT 


NOOP.MEMPFl 




00J432L 


IIDIOIOO 


1 1100101 












00 14 33L 


110101 11 


0001 001 










1 122. 


00-1434L 
001435L 


00 1.10001 
OOllOJ 11 


001 10 no 

1 0001 1 11 




IDPP 




IMPO.MDR 


1123. 


>00.1436L 
>001437L 


010 11 0.0 1 

1 1 00 1 1 1 1 


1 11.11 1 11 
1 11 11 111 


FETPL 


BR AX 




FETCH 



07AUG82 15«!32 



LOAD rtEGISTER FROM PAGED LOCATION 
A-REG LOAD (104 IS NOT A PLR) 
K <- (X,IDX) 




GET TrtE INDEX 

AND SAVE ArtAY NErt PC 

LS8 ADDRESS 

MSB ADDhESS AND GET DATA 

GOT THE DATA 

IF IMF NOT ZERO GET ANOTHER BYTE 



GET THE SECOND DATA BYTE 
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1124. 
1.125. 
1126. 
1127. 
1128. 
1129. 
1130. 
1131. 
1132. 
1133. 
1 134. 
1135. 
1136. 
1137. 
1 138. 
1 I 39. 
1 140. 
1141. 
1 142. 

1 143. 

I 144. 

1 145. 

1 146. 
1147. 

I 148. 
1149. 
1160. 

1 151. 
1 152. 
1 153. 
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001440L 



00J440L 
00 1 44 1 L 
00I442L 
00 I 443L 
00.1 444L 
001 445 L 
00 1 446L 
00 1 447L 
001450L 
00.1 45 IL 
00J452L 
001453L 
00.1454L 
001455L 
00-1456L 
001457L 
00.1 460L 
>001461L 
>00J462L 



OOllOJ 11 
001101 n 
00 1 I 000 J 
00 1 1 00.0 1 
1 1 1 1 00 
110101 11 
00 1.10001 
00 1101 11 
00 1 1 000 1 
00 11 0001 
00 IIOJ 11 
1101 1001 

00 I 10001 
1 1 1 1 00 

.11 010 J 11 

00 1 1 n 1 

001.101 11 
0101 1001 

1 100 11 1.J 



000 1 100 
01000 1 1 1 

1 000 1 00 1 
10101 000 
110 11011 
000 1 00 1 

00 110 1.10 

1 10 00 000 
1 1 1 00 1 1 1 

lion 101 

001 0000 i 

1 1001 no 
1 .1 0.) nil 

1 1010010 
0000100 1 

0000 1 100 

001 00001 

1 11 11 1 n 
1 11 11.111 
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MICKO-PftOCESSOH EMULATION SUPPORT CODE - HJS - 
. SINGLE AND DOUBLE PAGED LOAD AND STORE 
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PStii 
3.05 



4.40 



ni 

062 
113 
174 
115 
176 

STB 



IR6) 
107) 
116) 
126) 
136) 
146) 
156) 
166) 

126) 
116) 
146) 
136) 
166) 
156) 



FETPS 



DLDX 
MWAIT 

LDPP 

LDX 

LDPP 

BRA 

LDTP 

MrtAIT 

STB 

LDPT 

BRAX 



PSR.IDX 
PSR.IDX 
PSR.IDX 
PSR.IDX 
PSR.IDX 
PSR.IDX 
PSR.IDX 
PSR.IDX 

DPSR.IDX 

DPSR.IDX 

DPS.IDX 

DPSR.IDX 

DPS.IDX 

DPSR.IDX 

IMAR,SMR 

MR2PC 

.MEMPFl 

MAROL.MDR 

XX2MRH+URX 
MDrt,I35I 

FETPS, TO, I Z 

IMPI 

.MEMPFl 

IMAR 

MDW 

FETCHW 



STORE REG INTO PAGED LOCATION 
A WEG SAVE (106 IS NOT A PSR) 
iX.WK) <- R 



(X.IDX) 


<- 


C; 


(X,IDX+1) 


<- 


B 


(X.IDX) 


<- 


Bj 


(X.IDX+1) 


<- 


C 


(X.IDX) 


<- 


E; 


(X,IDX+1 ) 


<- 


D 


(X.IDX) 


<- 


D; 


(X,IDX+1) 


<- 


E 


(X.IDX) 


<— 


L; 


(X,IDX+1) 


<- 


H 


(X.IDX) 


<- 


H; 


(X,IDX+1) 


<- 


L 



GET THE INDEX 

UPDATE THE PC SO IT CORRECT 

LSB ADDRESS 

AND MSB ADDRESS FROM X-REG 
SAVE THE REGISTER IN MEMORY 

DONE IF IMP ZEriO 

GET OTHER REG TO SAVE 



POINT TO ITS SAVE AWEA 
SAVE IT 



( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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MICKO-PHOCESSOrt EMULATION SUPPOr^T CODE - HJS 
. REGISTER PAIR INCREMENT AND DECREMENT 
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1156. 
1157. 
1158. 
1159. 
1160. 
1161. 
1162. 
1 163. 
1 164. 
1 165. 

1J66. 
1167. 
1 168. 
1 169. 
1 170. 
1171. 
1 172. 
1173. 
1174. 
1175. 

I 176. 

II 77. 
1178. 
1179. 
1 180. 
1 181. 

1182. 
1 183. 
1 184. 
1185. 
1 186. 
1 187. 



1 188. 

1.189. 
119.0. 



1 191. 
1192. 
1 193. 



00J463L 



001463L 
00.1 464L 
00J465L 
00J466L 
001467L 

001470L 



001 
001 
00 J 
001 
00 1 
001 
001 
00 J 
001 
001 
001 
>00 1 
>001 
001 
001 
00.1 
001 



470L 
47 IL 
472L 
473L 
474L 
475L 
47 6L 
47.7L 
500L 
501L 
502L 
503L 
504L 
505L 
506L 
507L 
510L 



11011000 11001001 
01010001 0000 110 
00 1101 11 .00000001 
00 110001 11010000 
110.11111 1,1000000 



IJOl.lOOO 
01010001 
00 1 1 J 1 1 
01010001 
1.1011010 
0101 0001 
00 1 I I 1 1 
0110 1111 
00 1 1 0001 
1 1 1 00 1 
OOllOJ 11 

010 1 100 J 

11 000000 
OOIJOJ 11 
00 110001 
01010010 
00 1101 11 



1 1 00 1 00 
0000 110 
0000001 

000 00001 

1 1000000 
OOQOOOIO 

0001 001 

1 11 1000 1 
11011111 
00 1 10001 
01101111 

1 II 111 11 
11111111 

00001001 
11011111 
00000000 
01101111 



INCPA* 
1.50 
1.35 
1.35 
1.35 



( 017) 

(062 017) 

(174 017) 

(022 017) 



INCP 
INCP 
INCP 
INCP 



+0.65 IF CRY FROM LSB 



INCP AS 



* 

INCP 



1. 
1. 
I . 
I. 
1. 



t 

45 
45 
30 
45 
30 
45 
45 
30 



BRA INCPAS.FS.IZ 

LDPI LIMP, URL 

LDTP URI+URA 

BRA INCPIT 



015) INCP 

111 015) INCP 

062 015) INCP 

113 015) INCP 

174 015) INCP 

115 015) INCP 

117 015) INCP 

022 015) INCP 



+0.65 IF CRY FROM LSB 



INCPS 



INCPIT 



BRA 
LDPI 

LDTI 

BRA 

LDTI 

STB 

LDRT 

DOFRP 



BRAX 



INCPS. F^.IZ 
LIMP, URL 



riL <- HL + A 

BC <- BC + A 

DE <- DE + A 

XA <- XA + A 



USE HL IF NO IMP SPECIFICATION 



T LOADED WITH VALUE TO ADD, GO DO IT 



HL <- HL + 1 

XA <- XA + 2 

BC <- BC + 1 

BC <- BC + 2 

DE <- DE + I 

DE <- DE + 2 

HL <- HL + 2 

XA <- XA + 1 



DEFAULT TO HL PAIR 
ASSUME ITS BY 1 (ODD) 



INCPIT,F«i,IO 
2 

DIMP 

TEMPI 

IMPFO,AC, TEMPI ,IMPI, CO INC THE LSB (T-SAVE NECESSARY) 



NO, BY 2 CAUSE WAS EVEN 
CORRECT IT TO BE ODD 



FETCHI,FC 



IF NO CARRY FORGET THE MSB 



STB DIMP 

DOPIP IMPFO,AC,0, IMPI INC THE MSB (COULD USE IT) 



>00I511L 1100 11 II 1 11 11 I II 



BRA 



FETCH I 



CAN'T USE 'IT IMPFO' BECAUSE DELAYED 
ALU CARRY THROUGH PriOCESSOR CARRY 



DATAPOINT CONFIDENTIAL INFOKMATION - SEE FAGE 1 
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. REGISTER PAIR INCREMENT AND DECREMENT 




1194. 








h 










1 195. 


00I512L 




DECPA» 










1196. 








. 1.50 


( 037) 


DECP 


HL <- HL - A 




1 197. 








. 1.35 


(062 037) 


DECP 


8C <- BC - A 




1198. 








. 1.35 


( 174 037) 


DECP 


DE <- DE - A 




1 199. 








. 1.35 


(022 037) 


DECP 


XA <- XA - A 




1200. 








. +0.65 


IF BRW FROM LSB 






1 20 1 . 


















1202. 


001 5.1 2L 


1101.1000 


10110010 




BRA 


DECPAS»F@,IZ 






1203. 


00 1 5 1 3L 
0015I4L 


01010001 
00 1 1 1 1 1 


00000 no 

000 00001 




LDP I 


LIMP»URL 


SELECT HL AS DEFAULT REG PAIR 




1204. 


00J5I5L 


00 1 1 000 1 


110 10000 DECPAS 


LDTP 


URI+URA 






1205. 


00I516L 


1 1 1 1 1 1 1 


1 1 1 00 1 




BRA 


DECPIT 


GO DECR. USING A-REG AS DISP. 




1206. 






* 










1207. 


001517L 




DECP* 










1208. 








. 1 .45 


( 035) 


DECP 


HL <- HL - 1 




1209. 








. 1.45 


(in 035) 


DECP 


XA <- XA - 2 




1210. 








. 1.30 


(062 035J 


DECP 


BC <- BC - 1 




1211. 








, 1.45 


(113 035) 


DECP 


BC <- BC - 2 




1212. 








. 1.30 


( 174 035) 


DECP 


DE <- DE - 1 




1213. 








1.45 


( 115 035) 


DECP 


DE <- DE - 2 




1.214. 








. 1.45 


( 117 035) 


DECP 


HL <- HL - 2 




1215. 








. 1.30 


(022 035) 


DECP 


XA <- XA - 1 




1-216. 








. +0.65 


IF BRW FROM LSB 






1217. 


















1.218. 


00 1 5 1 7L 


1101 1000 


loionoi 




BRA 


DECPS, Fa, IZ 






1219. 


00I520L 
O0I52IL 


0101 0001 
00 1 J 0.1 11 


00000 110 
000 0000 1 




LDP I 


LIMP, URL 






1220. 


001522L 


0101 0001 


000 00001 DECPS 


LDTI 


1 


EXACTLY LIKE ABOVE BUT USING SB'S NOT A 


1 22.1 . 


001523L 


11 11010 


1 1 1 00 i 




BRA 


DECPIT,F@,IO 






1222. 


001524L 


01010001 


000 00010 




LDTI 


2 






1223. 


00I525L 


00 1101 11 


0001001 




STB 


DIMP 






1224. 


001526L 


OIlOll 11 


1 11 10001 DECPIT 


LDRT 


TEMPI 






1225. 


001527L 
001530L 
00I531L 


00 11.0001 
J 1 1 1 00 
00 1 1 1 1 1 


n 1 1 1 1 1 

001 10001 
1101 1 11 




DOPRP 


IMPF0,SB,TEMP1, 


IMPI, CO 




1226. 


>00I532L 
>00J533L 


01011001 
1.1 000000 


11111111 
.1 11.11 1 It 




BRAX 


FETCH I, FC 


IF NO CARRY FORGET THE MSB 




1227. 


001 534 L 


00 1101 11 


0001001 




STB 


DIMP 






1228. 


00 1535L 
00 1 5 36L 
00J537L 


00 I 10001 
010101 00 
00 1 1 1 1 1 


no 11 1 11 

000 00000 
01101111 




DOPIP 


IMPFO,SB,0, IMPI 






1229. 


>001540L 


noon 11 


1 1 1 11 1 1 1 




BRA 


FETCH I 







( 

( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
i 
( 
( 
( 
( 
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PROCI4/LIBIDR0.PROC 



232. 
233. 
234. 
235. 
236. 
237. 
238. 
239. 
240. 
24 1. 
242. 
243. 
244. 
245. 
246. 
247. 

248. 
249. 
250, 
251. 
252. 
253. 
254. 
255. 
256. 
257. 
258. 
259. 
260. 
261. 
262. 
263. 



001541L 



00I541L 
001542L 

001543L 



010 I 0001 Oil 010 

1 1 1 1 1 1 1 1 00 1 1 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 07AUG82 15*52 

., INDEXED LOCATIONS, INCREMENT AND DECREMENT IN PLAGE OR TO REG PAIh 



* 

DECXi 

( 025> 

9.05-~9.65 

111 025) 
10.55-" 11 .15 



J.55~8. 



DECI.LSP.IDX (X,IDX+i I X, IDX) <- 

(X,IDX+1 I X,IDX) - DSP 

DECI.LSP.MSB.IDX (X,IDX+1 I X, IDX) <- 

(X,IDX+1 I X.IDX) - DSP 

LFID.LSP.IDX RP <- (X,IDX+1 I X,IDX) - DSP 

LFID.LSP.IDX 

LFID.LSP.IDX 



00.1 543L 010.10001 10000000 



117 025) 
9.05-~9.65 

BRC 

* 
INCX« 

( 005; 
8.75^9.35 

(111 005) 
10. 25"' 10. 85 

(062 005) 
(174 005J 
( 176 005) 
7.45~8.05 

(113 005) 
(115 005) 
(117 005) 
8.95~9.55 

BAL 



062 025) 
174 025) 
176 025) 
5 

113 025) LFID.LSP.MSP.IDX RP <- (X,IDX+1 I X,IDX) - DSP 
115 025) LFID.LSP.MSP.IDX 
LFID.LSP.MSP.IDX 



INDX,,DECIT 



GO TO INDEX SPECIFYING DEC IT SET 



INCI.LSP.IDX (X,IDX+1 I X,IDX) <- 

(X,IDX+1 I X.IDX) + DSP 

INCI.LSP.MSP. IDX (X,IDX+1 I X, IDX) <- 

(X,IDX+1 I X.IDX) + DSP 

LFII.LSP.IDX RP <- (X,IDX+1 I X.IDX) + DSP 

LFII.LSP.IDX 

LFII.LSP.IDX 

LFII.LSP.MSP.IDX RP <- (X,IDX+1 I X.IDX) + DSP 

LFII.LSP.MSP.IDX 

LFII.LSP.MSP.IDX 



, INC IT 



( 
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1264. 
1265. 
1266. 
1267. 
1268. 
1269. 
1270. 

1271. 
1272. 

1273. 
1274. 

1276. 
1276. 
1277. 
1,278. 

1279. 
1280. 

1281. 
.1.282. 
1233. 

1284. 

1285. 

1286. 

1287. 
1288. 
1289. 

1290. 
1291. 

1.292. 

1293. 

1294. 

,1-295. 
1296. 
1297. 
1298. 
1299. 
1300. 



PROC14/LIB»DH0.PWOC 



001544L 



00J544L 
00J545L 
00.1 546L 
00I547L 
00 1550L 
001551L 
001552L 
001553L 
00I554L 
00 J 555L 
00I556L 
00.1 557L 
001560L 
001561L 
001562L 
00I563L 
001564L 
00J565L 
00 1 5 66L 
001567L 
00I570L 
001571L 
001572L 
00 1573L 
00I574L 
00I575L 
00I576L 

001577L 
00 160.0L 
001601L 
001602L 
001603L 
001604L 
001605L 
00 1606L 
001 607 L 
001610L 
00 1 6 1 1 L 
00i612L 

00 J 6,1 3L 
001614L 
0016I5L 

00 1 6,1 6L 

00 1 6 1 7L 



00 
00 

or 



00 1 1 1 1 1 
00 1 1 1 1 1 
Olio II II 
11010100 
110101 II 
00 1.10001 
00 110111 
00 1 1 1 1 1 
01101111 
01010001 
llOilOlO 
11 1 0.1 00 
110101 11 
00 11 0001 
00 1101 11 
1 0111 
101 II 
1111 
00 11 0001 
00 110001 
IIJOIOI 00 
110101 II 
00 1 1 0001 
00 1 1 1 1 1 
00 110001 
00110] 11 
11101111 

11010100 
1 1 I 1 1 1 
00 110001 
00 1 1 1 1 1 

00 1 I I 1 1 

01 1 1 00 1 

oiion II 

1 1 1 1 00 
110101 II 
00 110001 
1 1 1 00 1 
110 1 1000 

00 110.1 II 
00 1 1 1 1 1 

01 110001 
11010100 
IIOIOJ 11 



000 1 1 00 

01000 111 

1 11 10000 
1 00 1 1 000 
0001 001 
00 1 10 I 10 
00001 100 
0,1000 1 11 
1.11 10010 
00000000 
1 0001010 
100 10000 

00001 001 
00 110 1.10 
0000 1 100 
1000 1 II 

0001 001 

1 11 10001 
1 0001001 
10101000 
1 0000 1 11 

000100 1 

001 10 1 10 
1 1000000 
111 001 II 
1000 I II 

0000 000 

1 00 00 000 
0001001 
00110110 
000 1 1 00 
0,1000111 

00 1 10010 

1 11 10010 
0. 1 1. 1 1 00 1 
0001 001 
00 110 IJO 
1 II 10001 
010 II 1 II 

001 0000 1 
00000 110 
1 1110010 
11 10001 
000100 1 



DATAPOINT CONFIDEN-TIAL INFORMATION - SEE PAGE I 

MIChO-PHOCESSOR EMULATION S.UPPOrtT CODE - riJS - 07AUG82 15:52 

. INDEXED LOCATIONS, INCREMENT AND DECREMENT IN PLACE OR TO HEG PAIR 

+ 
INDX 

. INDEXED OPERATIONS T.AKES 2 BYTES ON PAGE X-HEG ADDS DISPLACEMENT TO IT 
AND STORES THE RESULT IN A REG. PAIR OR BACK ON TOP OF ITSELF 



INDGET 



* 
INCIT 



INDXS 



STB 

BAS 
MWAIT 

LDTP 
STB 

LDRT 
TCLR 
BRA 
MWAIT 

LDTP 
STB 

STB 

LDRT 

DLDX 

MWAIT 

LDPP 

LDX 

BRR 

MWAIT 

LDTP 
STB 

DORR 

MWAIT 

DOTRP 

BRA 

LDPT 
LDPT 
LDTR 
MrtAIT 



GET DISPLACEMENT LSp 

FREE REGISTER FOR INC, DEC SELECT 

GET MSP OR INDEX 

SAVE LSP (LSP DISPLACEMENT) 
ASSUME MSP IS ZERO 

NO, GET MSP OF DISPLACEMENT 

GOT MSB 

POINT AND GET INDEX 

CORRECT IMP REG 

SAVE MSP 

PC SAVED AS CORHECT VALUE NOW 

GO'rriNDEX 

INDEX TO THE MAR LSB 

AND MAH MSB FROM THE X-REG 

SELECT DEC IT Ort INCIT 



IMAR,SMR 

LINK 
,MEMPFi 

MDR 
IMAK,SMrt 

TEMPL 

INDGET,F@,IO 
,MEMPF1 

MDR 
IMAR,SMh 

DIMP 
TEMPH 
MR2 PC 

,MEMPFI 

MAROL,MDR 

XX2MRri+URX,SMK 

LINK 

,MEMPF1 

MDR 

IMAR.SMR START TO READ FOR MSB FAST 

TEMPL, AC, TEMPL,, CO ADD DATA AND DISPLACEMENT LSB 

,MEMPF1 

ADD MSB PART, LEAVE RESUL'I IN T 
SELECT LOAD REG PAIR OR RELOAD MEMORY 



,AC,TEMPH,MDP 
INDXL,Fe;, IZ 



MDW 
LUF 
TEMPL 
,MEMPFI 



PUT MSB RESULT BACK IN MEMORY 
SET CONDITION CODES 

PUT LSB DATA BACK ALSO 



DATAPOINT CONFIDENTIAL INFORMATION - SEE t'AGE 1 
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I 30 1 . 
1302. 
1303. 

1304. 
1305. 

1306. 
1307. 

1308. 

1309. 

1310. 

1311. 
1312. 
J313. 
1314. 

1315. 

1316. 



PROC14/LIB»DR0.PHOC 



001620L 

001621L 

>001622L 

>001623L 

001624L 
001625L 
001626L 
001627L 
00 1 630L 
001631L 
00 1 6 32 L 
00I633L 
001634L 
001635L 
00 I 636L 
00,1 637L 

00J640L 
001641L 
00J642L 
001643L 
001644L 
>001645L 
>00J646L 



11 



OOlJOl 
OOllOJ 1 
OJ 0.1 100 

1 1 00 n 1 



1101 01 00 
11010.1 11 
00 110001 
00 1101 11 

00 1 1 1 1 1 

01 110100 
Olio II 11 
1 1 01 1 00 
tlOiOl 11 

00 11,000 1 

01 110100 
110 1 1001 

OOlJOl II 
00 110 111 

00 llJOl 11 

01 11 0001 

00 110 1 IJ 

1 1 I 00 1 
1 1 00 1 1 11 



00001101 
001 00001 

1 11.11 1 11 
1 It 11 111 

OliOlOll 
0000 1001 
00110 110 

000 II 00 
010001 11 
001 10010 

1 I 110010 
0. 1 1 00 1 00 
0001 001 

00 110 1.10 

1 II 10001 
0.11 10.100 

00001001 
OIIOI I II 

000 1 000 

1 II 10010 
I 000 1 1 I I 
Ml 11 I II 

I II 111 II 



MICriO-PROCESSOH EMULATION SUPPORT CODE - HJS - 07AUG82 15*52 
. INDEXED LOCATIONS, INCREMENT AND DECREMENT IN PLACE OR TO REG PAIH 

IN CORRECT SPOT 



DEC IT 



INDXL 



STB 


DMAR 


LDPT 


lAOn 


BRAX 


FETCHW 



MWAIT 



.MEMPFl 

GET LSB DATA 

START TO READ FOR MSB FAST 

TEMPL,SB,TEMfL.,CO SUBTRACT DISPLACEMENT FROM THE DATA 

SIMILARLY FOR THE MSB PART 

SELECT LOAD REG PAIR OR RELOAD MEMORY 

CORRECT POINTER TO MSB 

LOAD THE INDEX INTO A REGISTER PAIR 

THE LSB ALSO 



LDTP 


lADii 


STB 


IMAR.SMR 


DORR 


TEMPL,SB,TEMF 


MrtAIT 


,MEMPF1 


DOTRP 


.SB/rEMFH,MDR 


BRA 


INDXS,T@. IZ 


STB 


DIMP 


LDPT 


IMPFO, IIMP 


LDPR 


impo,templ 


BRAX 


FETCH 



( 
( 
( 
< 
( 
( 
{ 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 



( 
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.1319. 
1320. 
1321. 
1322. 
1323. 
1324. 
1325. 
1326. 
1327. 
1328. 

1329. 
1330. 
1331. 
1 332. 
1333. 

.1 334. 
1335. 
1336. 
1337. 
1338. 
1339. 
1340. 
1341. 
1342. 
1343. 
1344. 
1345. 
1346. 
1347. 
1348. 
1349. 
1350. 
1351. 
1352. 
1353. 
1354. 
1355. 
1356. 
1357. 
1358. 
1359. 
1360. 
1361. 
1362. 
1363. 
1364. 
1365. 
1366. 

1 367. 



PROC14/LIB»DR0.PROC 



001647L 



00 1647L 
001650L 

00 1 65 1 L 



001651L 
001652L 
001653L 
001654L 

001655L 



01 
1 



.000 
11 I 



00 1 
010 



0000 
0001 



01 01 0001 
1 1 1 I 1 1 
0.1010001 
1101 II 11 



001 11 1 II 
1.1 110000 

0000 no 

01000011 



00I655L 010.10001 001 11.1 11 



001656L 

00 1 656L 
001657L 
00 I 660L 
001 661 L 
00J662L 
00 I 663 L 

00 1 664L 

001 665 L 
00 I 666L 
001667L 
00I6.70L 
00I671L 
00 I 6 72 L 
00I673L 
00 1 674L 
001675L 
00J676L 
00I677L 



Olio 11 11 



1 1 

no 

00 11 

00 II 
1 1 

00 II 



1001 
1010 
01 II 
0001 
1001 
0001 



II 10 It II 
00 I 1 000 1 

00 1 I 0001 

1 1 .1 I.I I 1 
01 01 0001 

1.1 01 11 II 
010.1 0001 
00 II 01 II 
00 11 0001 
00 I 1 000 1 
J I 10 II II 



I I 1 10000 
01 000 I 00 
0.1 00 I 001 

0001 001 

1 I 000 I 00 

1 000 1 10 

1 11000 I I 
000 00000 
1 1000010 
1 11 00001 
000 00000 
00000010 
I 0000 I 1 
0000100 

00 00001 

1 1000 I 10 
1 1 1 00 1 01 
000 00 000 



DATAPOINT CONFIDEN.TIAL INFORMATION - SE£ PAGE I 

MICRO-PROCESSOR EMULATION SUPPORT CODE - HJ5 - 
. DOUBLE LOADS AND DOUBLE STORES 



07AUG82 I5«52 



DS» 

. 3.95 

. 4.65 

. 3.95 

. 3.80 

. 3.80 

. 3.95 



DLHL: 
. 4.55 



* 

DLJ 

. 4.55 
. 5.25 
. 4.40 
. 4.55 
. 4.40 
. 4.55 
. 4.40 
. 4.55 



* 

DLS 



DLSBC 



DLSONE 

DLSZRO 
DLSLMP 



027) DS 

1.11 027) DS 

113 02 7) DS 

174 027) DS 

176 027) DS 

117 027) DS 

BRC DLS, ♦.DS TO RE 



( 057) DL 

BAL LINK,DLOAD 

LDTI URL 

BRA DLSLMP 



( 047) DL 

(111 047) DL 

(062 047) DL 

(113 047) DL 

(174 047) DL 

( 115 047) DL 

( 176 047) DL 

(117 047) DL 

BAL .DLOAD 



BAS LINK 

BRA DLSZRO, T0,IZ 

BRA DLSBC, F0, 10 

STB DIMP 

LDX DE2MRL 

BRA DLSONE, Te!, IZ 

LDX DE2MRH 

BRR LINK 

LDX XX2MRL+URC 

LDX XX2MRH+URB 

BRR LINK 

LDTI URC 

BRA DLSLMP 

LDTI URE 

LDPT LIMP 

DLDX HL2MR 

BRR LINK 



(HL) <- E; (HL+I) <- D 



(HL) 
(DE) 

(BC) 
(BC) 
(DE) 



<- 
<- 
<- 
<- 
<- 



c; 
c; 
E; 
L; 
L; 



(HL+l) 
(DE+I) 
( BC+ I ) 
( BC+ 1 ) 
(DE+I) 



<- 
<- 
<- 
<- 
<- 



B 
B 
D 
H 
H 



SELECT REG PAIRS & DO SAVE 

L <- (HL); H <- (HL+I ) 

LOAD REG PAIR 

HL 

FROM (HL) 



t 
C 
C 

c 

E 
E 

L 
L 



<- 
<- 
<- 
<- 
<- 
<- 
<- 
<- 



(HL); 
(HL); 
(BC); 
(DE); 
(BC) ; 
(DE); 
(BC); 
(DE); 



D 
B 
B 
B 
D 
D 
H 
H 



<- 
<- 
<- 

<■- 
<- 
<- 
<- 
<- 



(HL + 
(HL+ 
(BC + 
(DE + 
(BC+ 
iOE + 
(BC + 
(DE + 



I ) 
I ) 
I ) 
I ) 
I ) 
I ) 
I ) 
I ) 



LOAD SELECT 



DECODE ADDRESS & REG SPEC. OPERATORS 

DE, HL - 000 

XX, BC - 062. 114. .. 

DELAY ONE FROM THE DIMP BEFORE BRA 
BC , HL - 111 

XX, DE - I 13, 115... 

XX, BC - 062, 114... 

BCHL - 1 II 

DE,HL - 000 

XX, HL - 000, 111, riL,HL 



DATAPOINT CONFIDENTIAL INFORMATION - SEE HAGE 1 
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1368. 
1369. 
1370. 
1 37 1 . 
1372. 



PROC14/LIB»DR0.PROC 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
. DOUBLE LOADS AND DOUBLE STORES 



07AUG82 15»b2 



1373. 
1374. 

1375. 

1376. 

1377. 

1378. 

1379. 
1380. 
1381. 
1382. 



1383. 
1384. 

1385. 
1386. 
1387. 



001700L 



001 
001 
00.1 
001 
001 
001 
00.1 
001 
001 
001 
00 I 
001 
001 
>00l 
>001 



700L 
701L 
702L 
703L 
704L 
706L 
70 6L 
707L 
710L 
711L 
712L 
713L 
714L 
715L 
716L 



00 1 7 1 7L 



001 
00 1 
001 
001 
001 
001 
00 1 
001 
>001 
>001 



717L 
720L 
72 IL 
722L 
723L 
724L 
725L 
726L 
.72 7L 
730L 



00 1 1 1 M 
1 1 00 I I 1 
11010100 
110101 11 
00 1 10001 
00 M 1 1 1 
00 1 1 11 1 
00 1 1 1 1 1 
00 1101 11 
1 1 1 1 00 
1 1 01 0111 
00.110001 

00 1 1 0.1 1 1 
1 1 1 00 1 

1 I 00 1 1 1 1 



00.110001 
00 1101 11 
00 1101 11 
00 I 10001 
1 1 0.1 1 00 
11010111 
00 1101 11 
00 1101 11 
010 11001 

noon 11 



1000 1 n 

1 11 11 1 It 
001 in 01 

0001 001 
00 110 110 
000 1 100 

1000 1 11 

1 00011 11 
0001001 

001 10 no 

00001001 

00 110 no 

10001 1 II 

1 1 1 11 1 1 1 

1 11 1 1 1 n 



1 lOJ 1 
001 00 

00001 

lion 

00101 
0001 

000 1 

001 00 

I 1 1 1 1 
1 1 1 1 1 



1 11 

001 
001 

111 

100 
001 
100 
001 

1 11 
111 



* 
DLOAD 



-DSTORE 



LDTP 
STB 

LDPT 

MrtAIT 

LDPP 

BRAX 



LDPP 



LDTP 
MWAIT 

STB 

LDPT 

BRAX 



LOAD REGISTER FAIR FROM MEMORY 



STB SMR 

M^^AIT N00P,MEMPF1 



MDR 
IMAR.SMrt 

IMPO,DIMP 

.MEMPFl 

I MPO, MDR 

FETCH 



GET THE LSB DATA 



AND MOKE OF THE SAME 



GET THE MSB 



MDW,IMPI,DIMH 



IMPI 
.MEMPFl 



SAVE REGISTER PAIR IN MEMOrtY 
OUTPUT LSB AND POINT 10 MSB 



IMAR 

MOW 

FETCHrt 



OUTPUT MSB 



( 
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PROC14/LIB«DR0.PROC 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
. SYSTEM ROUTINES 



07AUG82 15»b2 



1390. 
1391. 
1392. 
1393. 
1394. 
1395. 

1396. 
1397. 



1398. 

1399. 
1400. 

140J. 
1402. 
1403. 
1404. 
1405. 
1406. 
1407. 
1408. 

1409. 
1410. 

1411. 
1412. 

1413. 
1414. 
1415. 
1416. 
1417. 
1418. 

1419. 
1420. 

1421. 
1422. 



001731L 



* 

BRL» 
. 2.20 



001 
001 
001 
001 
00 J 
001 
001 
001 
001 
00] 
>00 1 
>001 



731L 
732 L 
733L 
734L 
735L 
736L 
737L 
740L 
74 I L 
742L 
743L 
744L 



00I745L 



00I745L 

00.1 74 6L 

001747L 

001750L 

00 1 75.1 L 

00 1 752L 

>001753L 

>00.1754L 

>001755L 

001756L 



00J756L 
001757L 
00 1 760L 
00I761L 
00J762L 
001763L 
>001764L 
>00I765L 



00 1 1 OOjO 1 
1 000 1 1 
1 1 1 00 1 
0101 0001 
00 1101 IJ 
0101 0001 
OOIIOJ 11 

00 11 0001 
OOUOJ It 
00 11 1 1 1 

1 1 1 00 1 

noon 11 



00 1 1 000 1 

01 000101 
11010010 

OIOIOIOI 
00 1 1 0.1 1 1 
00 1 1 I 1 I 

1 n 00 1 

11 00 11 11 



110.11 100 
0000100 

00000 1 11 

10101 on 

11000000 
11101111 

1 11 00000 

lion 1 11 

000000 11 
001 00001 

I 11 11 1 11 
11111111 



00 1 1 000 
0100010 

1 1 1 00 1 
1 0.1 00 1 
00 1101 1 
00 1101 1 
0101 100 

1 1 OOJ 00 

11 00 11 n 1 



1 



1 

1 1 

1 

1 1 
1 1 



1011 
0000 
0000 
00 00 
0001 
0000 

11 11 
II 11 
1 1 11 



100 
100 

1 11 

00 1 
100 
100 

1 11 
1 1 1 
111 



llOJ 1 100 
0000100 
0000 1 1 I 

1 11 11 no 

1 000 11 00 
0000100 

1 II 11 1 1 1 
1 11 11 1 11 



* 

EI» 

. 1.05 
. 5.20 
. 7.20 



* 

Dl: 



1.05 



( 072) 

(IMP 072) 

TSTIP 

BRA 
DLDPI 



LDPP 

LDPT 
BRAX 



BRL 
BRL 

,S»^USER,PSrtI 

I VIOL! ,FZ 
MARO,SEBhLS 



BASrt,IMPI 
FETCHW 



( 050) EI 

(111 050) EJMP.LSB.MSB 

(062 050) EUR 



TSTIP ,SWUSER,PSrtI 

BRA IVI0L1,FZ 

DOPI PSW0,0R,SWINTE 

LDPT MOD^V 

BRAX FETCHI,T@,IZ 

BRA EIROJ 



( 040) DI 

TSTIP .S»^USER,PSWI 



BASE REGISTER LOAD 
BASE <- (SEBRLS) <- R 



SAVE BASE REG VALUE A^VAY 



LOAD BASE REG BEFOriE rthlTE! 



ENAbLE INTERRUPTS 

ENABLE INTERRUPTS & PC <- NN 

ENABLE INTERRUPTS & USER & 

PC <- (SP+1 I sp); sp <- sp + 2 

NOT ALLOWED IN USErt MODE 



SET THE INTERRUPTS ON BIT 

IN EMULATION SUPPORT ALSO 
WAS SIMPLE EI 

WAS EJMP OR EUR 

DISABLE INTERRUPTS 

NOT ALLOWED IN USER MODE 



BRA 
DOPI 

LDPT 
BRAX 



IVIOLl.FZ 

PSVJ0.ND,-1-SWINTE RESET THE BIT, DISABLING INTERRUPTS 



MODW 
FETCH I 



IN EMULATION SUPPOhT ALSO 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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PROC14/LIB»DR0.PROC 



MICRO-PROCESSOR EMULATION SUPPOrtT CODE - HJS 
. SYSTEM ROUTINES 



07AUG82 



5«52 



1423. 
1424. 

1425. 
1426. 

1427. 
1428. 



1429. 
.1430. 
1 43 1 . 
1432. 



>001766L 
>00.I767L 

00 1 770L 
00 1 77 I L 

00 J 772 L 
00 1 773L 
00 1 774L 
00.1 775L 
00 1 776L 
001777L 
0020 00 
00 0000 
00 0000 
00 0000 



1 1 1 00 
11 00 I I 1 

010 1100 
1 1 00 1 1 1 

11 II 11 1 
1111111 
1111111 

MM 1.1 1 
11 11 It I 
II Mill 



t 11111 


111 


1 1 111 


1 11 


1 1 II 1 


111 


1 0.1001 


001 


1 inn 


1 II 


1 1 11 1 


.1 11 


1111 11 


1 11 


1 1 II 1 


1 II 


1111 II 


111 


1 1 11 1 


A 11 



* 

MEMPF 



IVIOLl 



BHAX 



BRAX 



MEMPF$ 



IVIOLii 



TABPAGE PHOCL 



ROCLEh 


1 EUU 


$-PROCP 




USE 


PROCL 




SKIP 


PROCLEN 




END 


POR 



*** ERRORS* D 



C 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAUE 1 
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PROC14/LIBXDR0.PWOC 



MICriO-PHOCESSOH EMULATION SUPPORT CODE - HJS - 
SATURDAY, AUGUST 7, 1982 — 3Mj«18 PM 



07AUG82 15152 





AC 


126 


631 


713 


716 


732 


814 


828 


839 


845 


933 


938 


939 






995 


1 00 1 


1035 


1040 


1042 


1053 


1066 


1081 


1 187 


1 190 


1292 


1294 


1 00 1 7 


ACCTL 


•56*1 
























010015 


AGO 


*53«I 
























1 00 1 7 


ACPH 


•55: I 


56*1 


96 




















1 00 1 6 


AC PL 
ACUOT 


*54il 
101 
























000417 


ALPHA 


*499 
























00.0541 


ALPHAL 


•614 


517 


518 


551 


















000413 


ALPHAS 


-*.489 


496 






















1 00 I 4 


APFRK 


•47 « I 
























1 00 1 3 


APFRP 


*46U 
























1 00 1 6 


APFIK 


•49: 1 
























1 00 1 5 


APFTP 
BASW 


*48«I 
93 


1398 






















00 1 1 26 


BCP 


*882 
























000400 


BETA 


•466 
























000471 


BETAL 


• 554 


483 


484 


611 


















000432 


BETAS 


•523 


497 






















00 1 226 


BFAC 


• 974 
























00 1 270 


BFADD 


• 1001 


981 






















001231 


BFOP 


•P83 


926 


928 


972 


















001300 


BFS 


• 1011 
























00 1 222 


BFSB 


• 965 
























00 1 326 


BFSL 


• 1038 


1023 






















001274 


BFSUB 


• 1005 


972 






















000236 


BP 


•360 
























020006 


"69. 


•2MI 
























001731 


BRL 


• 1391 
























00 1000 


BT 


• 787 
























001032 


BTCVT 


•825 


820 






















00 1103 


BTEND 


•845 


831 






















001051 


BTR 


•833 


809 






















00 1 02 1 


BTX 


•822 


808 
























CO 


713 
1308 


716 


828 


839 


845 


1035 


1053 


106o 


108 1 


1 187 


1225 


1292 




CI 


136 


295 


823 


830 


900 


904 


1025 












000 1 00 


CAP55I0 


•121II 


125*1 






















000102 


CAPABILI 


•125* I 
























00 0000 


CAPAPF 


• 118»I 


125*1 






















0-00000 


CAPBLUE 


• 117»I 


125*1 






















000000 


CAPCOM 


•122* I 


125*1 






















000000 


CAPDMPIO 


• 119U 


125*1 






















000002 


CAPIMA 


• 1161 I 


125*1 


103 


153 


193 


282 


309 


346 


598 


602 






00 0000 


CAPIVS 


•135* I 


.•20* A 






















00 0000 


CAPMICR 


• 115U 


125* I 






















00 0000 


CAPRIM 


. •120»I 


125*1 
























CC 


117 


296 


324 


629 


649 


702 


732 


81 1 


834 


840 


850 


9U5 






952 


986 


991 


1027 


1028 


1031 


1033 


1038 


1 062 


1063 


1074 


10/5 






.1 077 


1079 






















001402 


CCS 


• 1086 
























007000 


CDOR 


•133*1 

























DATAPOINT CONFIDENTIAL INFOKMATION - SEE i^AGE i 
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PROCI4/LIB«DH0.PHOC 




MICKO-PROCESSOH 


EMULATION SUPPOhT CODE - 


- HJS - 


07AUG82 15> 


52 












SATURDAY, AUGUST 


7 , i 982 


— 3»4Di 


! 1 8 PM 












006000 


CDOX 


*132«I 


























CF 


94 


95 


96 


97 


102 


104 


106 


107 


108 


109 


110 


in 






112 


113 


116 


132 


136 


338 


378 


383 


389 


398 


399 


430 






437 


529 


531 


603 


607 


654 


656 


659 


700 


706 


711 


715 






717 


722 


732 


745 


749 


825 


829 


836 


902 


924 


931 


938 






941 


971 


980 


989 


996 


1001 


1005 


1034 


1052 


1065 


1080 


1186 






1224 


1271 


, 1.275 


1282 


1292 


1294 


12 99 


1308 . 


1310 


1315 


1333 


13i)l 




CMPF 


89 


























CODMIN 


296 


























CODMOUT 


324 


























CODWRT 


316 
























0300 11 


COMMODE 


*75«I 


.102 
























DE2MRH 


810 


827 


838 


899 


992 


135 7 
















DE2MRL 


810 


827 


838 


899 


.992 


1355 














001624 


DECIT 


*1305 


124.7 






















00 1 5 1 7 


DECP 


• 1207 
























00 1 5 1 2 


DECPA 


*1 195 
























00 1 5 1 5 


DECP AS 


*1204 


1202 






















001526 


DECPIT 


.* 1.224 


J 205 


122 1 




















001522 


DECPS 


• 1220 


121 8 






















001541 


DECX 


•1233 
























00 1 1 77 


DFADD 


•937 


925 






















001205 


DFAEND 


• 942 


940 






















00 1 1 62 


DFOP 


•913 


898 






















00 1 1 74 


DFSEND 


• 934 


932 






















00 1 1 70 


DFSUB 


•930 


927 






















001756 


DI 


• 1415 


























DIMP 


536 
.1 382 


670 


771 


775 


1185 


1 189 


1223 


1227 


1281 


1313 


1354 


1375 


001655 


DL 


• 1337 
























00 1651 


DLHL 


• 1330 
























00 1 7 00 


DLOAD 


• 1369 


1333 


1347 




















001656 


DLS 


• 1349 


1328 






















001666 


DLSBC 


• 1359 


1353 






















00 J 674 


DLSLMP 


• 1365 


1335 


1363 




















001671 


DLSONE 


• 1362 


1356 






















001673 


DLSZRO 


• 1364 


J 352 
























DMAR 


133 


433 


447 


539 


590 


597 


632 


673 


130 1 








00 1647 


DS 


• 1320 
























00 1 7 1 7 


DSTORE 


• 1380 


1328 






















00 1 745 


EI 

EI RO J 
EXMOUT 
FETCH 


• 1402 

1413 

351 

1 123 


1316 


1378 






















FETCH! 


780 


.1055 


1067 


1082 


109 1 


1188 


1193 


1226 


1229 


1412 


1422 






FETCHRW 


676 


























FETCHW 


353 


662 


961 


1 153 


1303 


1387 


1400 












000066 


FETPC 


• 141 


460 






















001436 


FETPL 


• 1123 


1 119 






















001461 


FETPS 


• 1.153 


1148 






















004000 


FLEX 


• 13MI 
























000627 


FTCHABW 


• 662 


544 























DATAPOINT CONFIDENTIAL INFORMATION - SEE HAGE 1 
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'AGE 57 


PR0C14/LIB 


JDRO.PROC 




MICRO- 


■PROCESSOR 


EMULATION SUPPORT CODE 


- HJS - 


07AUG82 15« 


52 












SATURDAY, AUGUST 


7, 1982 


— 3»45 


M8 PM 












000 770 


FTCHIAB 


*780 


487 


52 1 


708 


















000234 


FTCHIO 


•353 


266 
























HL2MRH 


287 


306 


668 


729 


822 


833 


903 


987 


1022 


1366 








HL2MRL 


287 


306 


668 


822 


833 


903 


987 


1022 


1366 










I35I 


1147 


























1350 


J 118 


























IDCODH 


876 


























IDCODL 


342 


876 
























IIMP 


1314 
























000224 


IMAOUT 


*347 


31 1 
























IMAR 


135 
1274 


322 
1280 


384 
1291 


390 
1307 


652 
1374 


659 
1385 


730 


1112 


1 120 


1 142 


1 151 


1270 




IMPS 


534 


669 
























IMPFO 


1 187 


1190 


1225 


1228 


1314 


















IMPI 


537 
1398 


. 712 . 


.1052 


1061 


1076 


1 149 


1187 


1190 


1225 


1228 


1382 


1383 




IMPL 


348 


























IMPO 


35 


674 


1054 


1064 


1 078 


1090 


1122 


1315 


1375 


1377 








IN BUS 


294 
























001577 


INCH 


*1289 


1263 






















00 1470 


INCP 


*1 169 
























00 1 463 


INCPA 


• 1157 
























001466 


INCPAS 


• 1 166 


1 164 






















001477 


INCPIT 


*1 186 


1167 


1183 




















00 1473 


INCPS 


*1182 


1180 






















001543 


INCX 


• 1249 
























00 J 565 


INDGET 


• 1.282 


1277 






















001544 


INDX 


• 1265 


124 7 






















00 1640 


INDXL 


• 1313 


1295 






















00 1 6 1 3 


INDXS 


• 1297 


1311 






















020005 


10 


•20* I 


484 


518 


809 


926 


1 183 


1221 


1277 


1353 










IT 


136 


295 


718 


817 


823 


830 


900 


904 


1025 


1054 








ITW 


845 
























000266 


IVIOL$ 


•41 1 


281 


30 8 


481 


515 


696 


1426 












00 1 770 


IVIOLl 


• 1426 


1396 


1409 


1419 


















020004 


IZ 


. •19»I 


431 


486 


519 


541 


645 


675 


710 


770 


774 


777 


808 






898 


1023 


1119 


1 148 


1 164 


1180 


1202 


1218 . 


1295 


1311 


1352 


1356 






1412 


























KBSC 


98 
























01 0001 


KBSCNT 


•28 » I 


97 
























LIMP 


348 


451 


534 


586 


669 


1 165 


1181 


1203 


1219 


136d 






030000 


LINK 
LI REG 
IIICF 


•61 » I 
316 
1035 


986 

338 

1043 


999 
1053 


1271 
1066 


1287 
1081 


1333 


1351 


1358 


136 1 


1367 








LUF 


633 


90 7 


931 


939 


1002 


1 006 


1298 












010003 


MADR 


• 33«I 


116 
























MARIH 


295 


823 


830 


835 


841 


900 


904 


988 


993 


1025 


1039 






MARIL 


295 


823 


830 


835 


84 1 


900 


904 


988 


993 


1025 


1039 






MAROH 


125 


130 


443 


659 


718 


725 


746 


817 


1397 










MAROL 


131 


531 


559 


619 


658 


716 


814 


1 115 


1145 


1285 


1397 




J 0004 


MB ITS 


•34«I 


95 






















01 0005 


MBSTAT 


•35 » I 


94 























D.ATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 



PAGE 58 


PR0C14/LIB 


JDRO.PROC 




MICRO- 


PROCESSOR 


EMULATION SUPPORT CODE ■ 


- riJS - 


07AUG82 1 


5*52 












SATURDAY, AUGUST 


7, 1982 


— 3»4dj 


! 18 PM 












01 0006 


MCRCH 


*36»I 
























10007 


MCRCL 


*37«I 


























MDR 


315 


350 


606 


631 


649 


654 


672 


121 


814 


828 


839 


9^2 






90 7 


991 


998 


1030 


1042 


1115 


1 118 


1122 


1145 


1273 


1279 


1285 






1290 , 


1294 


1306 


1310 


1373 


1377 














1 00 1 


MDSKS 


•38X1 
























1 00 1 1 


MDSKT 


*39« I 


























MDW 


135 


294 


449 


533 


540 


650 


655 


828 


839 


934 


942 


100 1 






1005 


1 032 


1042 


1 147 


1152 


1297 


1302 


1382 


1386 


1399 








MEMPFS 


782 


1424 






















000 772 


MEMPFO 


•782 
657 


314 
671 


340 


349 


429 


538 


550 


60d 


630 


648 


651 


6^3 


001766 


MEMPFl 


• 1424 


813 


826 


837 


875 


901 


906 


990 


997 


1029 


1041 


1114 






1 117 


1121 


1 144 


1 150 


1272 


1278 


1284 


1289 


1293 


1300 


1303 


1309 






1372 


1376 


1384 




















000330 


MEMPFSC 


•455 
























000115 


MIN 


•270 
























000204 


MINOUT 


•326 


297 






















00 0075 


MINOWT 


• 187 


337 






















0000 73 


MINPAR 


• 183 


284 


293 




















000130 


MINWO 


•290 


291 






















000204 


MINWl 


•327 


328 






















02 0002 


MO 


• 17«I 


88 


138 


314 


340 


349 


429 


452 


538 


550 


60 D 


630 






648 


651 


653 


657 


671 


724 


743 


813 


826 


837 


875 


901 






,906 


990 


997 


1029 


1041 


1 114 


1 117 


1121 


1 144 


1 150 


1 272 


12/8 






1284 


1289 


1293 


1300 


1305 


1309 


1372 


1376 


1384 








000551 


MODLOD 


•624 


563 






















000634 


MODLOP 


• 669 


634 






















000433 


MODSAV 


• 526 


490 






















000503 


MODSRV 


•565 


548 






















000446 


MODSVLP 


• 536 


541 
























MODW 


92 
1421 


192 


286 


313 


448 


545 


595 


646 


660 


726 


728 


141 1 


000113 


MOTPAR 


•267 


320 






















000171 


MO TWO 


• 317 


318 






















000150 


MOUT 


•299 
























020003 


MP 


• 18»I 


314 


340 


349 


429 


453 


53d 


550 


605 


630 


648 


6d1 






653 


657 


67 1 


724 


743 


813 


826 


837 


875 


901 


906 


990 






997 


.1029 


1041 


I 114 


1.117 


JUl 


1 144 


1150 


1272 


1278 


1284 


1289 






1293 


1300 


13U5 


1309 


1372 


1376 


1384 














MR2HLH 


323 


731 
























MR2HLL 


323 








, 


















MR2PCH 


391 


434 


591 


1 113 


1 143 


1283 
















MR2PCL 


391 


434 


591 


1 113 


1 143 


1283 














1 00 1 3 


MSECT 


•41*1 
























1 00 12 


MTRAK 
OTBUS 


•40 : I 
315 
























000102 


OUTWl 


•260 


261 






















000106 


0UTW2 
PC2MRH 
PC2MRL 
PCL 


•263 
377 
377 
451 


264 
390 

390 
586 


433 
433 


590 
590 



















DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE I 



'AGE 59 


PR0C14/LIB^ 


iDRO.PROC 




MICRO-PROCESSOR 


EMULATIO^ 


1 SUPPORT 


■ CODE - 


- HJS - 


07AUG82 1 


I5»52 












SATURDAY, 


, AUGUST 


7, 1982 


— 3»4d: 


18 PM 












PCMOD 


453 
























PC OH 


143 
























PCOL 


118 


141 




















01 0000 


PDLNP 


*27:l 


11 7 




















00 1407 


PLR 
POPSTO 


• 1095 
587 






















000000 


POR 


*82 


.1432 




















000043 


PORLST 


*125 


127 




















000067 


PORO-UT 


*143 


120 




















000057 


PORZRO 


• 135 


139 




















000 1 11 


PRE 


*18«A 


772 




















00 0000 


PROC 


*129»I 


74 




















00 0000 


PROCL 


•76 


78 


462 


783 


1428 














002000 


PROCLEN 


• 1429 


1431 




















000000 


PROCP 


*78 


1429 




















002000 


PROD 
PSHSTO 


*130»I 
453 






















00 I 440 


PSR 


• 1125 
























PSWI 


191 


280 


30 7 


408 


448 


449 


480 


514 


543 549 


561 


!395 






621 


646 


660 


695 


728 


773 


960 


1395 


1408 1418 








PS WO 


91 


191 


450 


488 


622 


607 


628 


960 


1410 1420 






010002 


u 


*25»I 


295 


629 


702 


81 1 


823 


830 


834 


850 900 


904 


952 






1025 


1027 


.1028 


1031 


1033 


1038 


1062 


1063 


1074 1075 


1077 


1079 


0300,10 


RCHOC 


•9211 


MO 




















1 00 1 4 


RCHOD 


•93U 






















030012 


RCHIC 


•94»I 


111 




















030013 


RCHID 


•95 » I 






















030014 


RCH2C 


•96U 


112 




















030015 


RCH2D 


•97* I 






















0300 16 


RCH3C 


•98* I 


113 




















030017 


RCH3D 


•99 » I 






















030006 


RCRCH 


• 72«I 






















03 0007 


RCRCL 


•73* I 






















030007 


RCVCTL 
RCVMRK 


•91 « I 
110 


.106 




















030005 


RD ATA 


• 71x1 






















000631 


REGL 


• 664 


645 




















000636 


REGLLP 


•670 


675 




















000563 


REGS 


•638 






















000444 


REGSVLP 
RETS 


•534 
148 


661 




















000014 


REV 


•2»I 






















001207 


RIN16 


• 947 


935 


.1003 


1007 


1036 


1044 












00 11.10 


RIN256 


• 854 


846 


908 


















00 1 2 1 5 


RIND 


•957 


748 


750 


847 


862 


909 












00 1 1 20 


RINDO 


•875 


864 




















00 1 1 24 


RINRPT 


•878 


874 




















00 1 1 1 6 


RINST 


•867 


955 




















030004 


RPNTR 


•70«I 






















030003 


RSTAT 


•691 I 
























SB 


335 
-1039 


650 
1225 


655 
1228 


835 
1308 


841 
1310 


861 


907 


931 


953 988 


993 


1 005 



( 

( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 

c 
c 
( 

( 
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PAGE 60 


PROC14/LIBIDR0.PROC 




MICRO-PROCESSOR EMULATION SUPPORT CODc ■ 


- HJS - 


07AUG82 15*52 












SATURDAY 


, AUGUST 7 , 1 982 — 3x4^:18 PM 








000240 


SC 


•368 














10002 


SCANS V 


*29U 














000245 


SCBP 


•380 


366 


374 










000304 


SCDON 


• 440 


400 












000274 


SCLST 


•431 














0002 71 


SCLSTW 


*424 


184 


268 


412 








000300 


SCPC 


•434 


385 












000302 


SCRAM 


•437 


431 












000242 


SCRAM I 


*376 














000260 


SCROM 


*399 


392 












000257 


SCROML 


•394 














000250 


SCROMLI 

SDLCMD 

SEBRLS 

SEDLBOT 

SESAVAF 

SESAVBF 

SINS 


*387 
100 

1397 
117 
489 
523 
294 


619 

559 














SIOD 


190 


262 


289 


315 










SL 


702 


1027 


1074 










00 1 346 


SLC 


• 1048 
















SMR 


306 


560 


597 


620 632 647 652 


668 


673 719 730 


810 






818 


822 


833 


899 90 3 987 992 


1022 


1112 1116 1 120 


1142 






1270 


1274 


1280 


1286 1291 1307 1371 


1374 








SNID 


288 


776 














SOTS 


321 
















SP2MRH 


447 


532 


560 


592 620 647 










SP2MRL 


446 


594 


647 












SPIL 


530 


558 


618 












SR 


1031 


1033 


1063 


1077 1079 








00 J 355 


SRC 


• 1057 














001366 


SRE 

SRSYSMF 
SRTMOUT 
SRVDO 


• 1069 
459 
118 
565 
















SRVREQ 


341 


547 


739 


873 










SRVRPT 


344 


751 


878 












STAE 


124 
















STATUS 


260 


263 


290 


317 327 










STEK 


119 
















STIODR 


260 


263 


290 


317 327 








000650 


STL 


•680 














000710 


STLAGN 


• 722 


740 












000740 


STLDONE 
STLIMOUT 


•743 
119 


724 


738 










000666 


STLNRPT 


•706 


698 












000711 


STLOOP 


• 724 


734 












000672 


STLRPTD 


•710 


704 












000677 


STLZRO 
STPFIN 
STPFOU 


• 715 
292 
265 


7.10 
319 














STW 


125 


129 


444 


727 747 
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PAGE 61 


PROCl 


4/LIB»DR0.PROC 




MICRO-PROCESSOR 


EMULATIO^ 


1 SUPPOii 


T COD£ - 


- rijs - 


07AUt 


382 15: 


52 














SATURDAY. 


, AUGUST 


7, 1982 


-- 3«45 


» 18 PM 
















STWE 


124 




























S\/BKPNT 


365 




























SVINP 


183 




























SVIVIOL 


41 1 
























/ 




SVOUTP 


267 




























SVSCAL 


373 




























SVUAINS 


422 
























/ 




SWALBT 


485 


520 


549 


561 


610 


621 


















SWBASD 


726 




























SWIDEV 


283 


310 


603 


604 


















( 




SWINTE 


286 


313 


545 


1410 


1420 




















SWRPT 


1 91 


482 


488 


516 


522 


543 


562 


621 


697 


960 










SWSCF 


448 


450 






















( 




SWSTDT 


603 


604 


























SWUSER 


280 


307 


408 


480 


514 


595 


646 


695 


1395 


1408 


1418 








SYSESH 


130 


131 


























SYSIVR 


437 


























000505 


SYSRhl 
SYSRETO 


*567 
587 


519 
























000512 


SYSRETl 
SYSROM 


•589 
129 


143 


399 


443 


746 


















000415 


SYSSAV 


•492 


486 
























000755 


SYSTAT 


*756 


























000767 


SYSTND 


•779 


774 


777 






















030001 


TEMP 1 


•62 U 


64U 


296 


324 


338 


603 


60 7 


711 


713 


71b 


722 


732 








749 


825 


828 


829 


836 


839 


840 


845 


902 


903 


931 


938 








941 


991 


1001 


1005 


1034 


1035 


1052 


1053 


1065 


1066 


1080 


1081 








1 186 


1187 


1224 


1225 




















030002 


TEMP2 


•63*1 
989 


65* I 
996 


529 


531 


700 


706 


716 


717 


745 


924 


971 


980 




030001 


TEMPH 


•64* I 


399 


437 


654 


659 


1282 


1294 


1310 












030002 


TEMPL 


•66* I 
1299 


132 
1308 


136 
1315 


378 


383 


389 


398 


430 


649 


656 


I27d 


1292 




030003 


TRNCHN 


•87« I 


109 
























03 0005 


TRNCTL 


•89* I 


.107 
























030004 


TRNDTA 


•88«I 


























1 00 1 3 


TRNFCN 


•86»I 


104 






















( 


030006 


TRNSEL 


•90»I 


.108 






















( 


00 0004 


TYPE 
UCFLG 
UDEH 
UDEL 


•4*1 
533 
830 
830 


995 
841 
841 


1026 
900 
900 


1040 
993 
993 


1073 


1090 
















000270 


UDOP 


•414 


409 


770 




















{ 


000263 


UDPOP 

URA 

URB 


•402 
815 
77,9 


824 
845 


836 
934 


1 166 
942 


1204 
1360 
















{ 




URC 


335 


700 


70 7 


772 


861 


953 


1359 


1362 














URE 


1364 




























URFO 


335 
























{ 




URH 


295 


717 


720 


745 


8)6 


823 


835 


904 


988 


1025 


1039 








URI 


335 
942 


700 

953 


707 
1166 


716 
1204 


717 


812 


816 


824 


836 


84 b 


861 


934 



( 

( 

( 
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PAGE 62 



PROC14/LIB»DH0.PROC 



MICHO-PROCESSOrt EMULATION SUPPORT CODE - HJS - 
SATURDAY, AUGUST 7, 1982 — 3«45»18 PM 



07AUG82 15«52 



030012 


URPNTR 




URX 


030010 


UXPNTR 


00 0002 


VER 


030016 


XCRCH 


0300J7 


XCRCL 


030015 


XDATA 


030014 


XPNTR 


030013 


XSTAT 




XX2MRH 




XX2MRL 



URL 295 716 812 823 

1219 1334 

URO 295 720 745 772 

904 953 988 993 

*76»I 
1116 1146 1286 

*74«I 
*1«I 

*80«I 

*81x I 

•79:1 

*78« I 

*77»I 

1 116 1 146 1286 1360 
1359 



835 

779 
025 



904 

815 
039 



988 
823 



1025 
830 



1039 
835 



1 165 
841 



1181 
861 



1203 
900 



